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FOREWORD 


The collection of programs in this book have been 
selected so that you can begin to use your new machine 
without any previous experience of computing. 

If you follow the lines of program listings as shown in the 
book, you will be able to play missile attack games, test 
your own and your friends' and family's mathematical 
abilities. We have also included utilities such as how to 
convert from decimal to binary, how to save 'string' data 
on tape, how to crack codes, how to send/receive morse 
code. We have even included an adventure where you 
have to save a princess, kill dragons and find treasure. 

If you have decided that you can afford to buy more 
equipment for your Aquarius we have even put in a 
cheque book statement so that you can make sure your 
bank can stand the strain. 

Many of the programs will have details of key lines which 
you can alter to increase/decrease or change the 
information in many of the games. This means that you 
have a book of programs which you can adapt to suit 
your experience. 

Becuase of the limited memory available on the Aquarius 
some of the programs do not carry a REM statement as 
we needed all the memory for the listing. 

We hope that the programs included in this book will add 
toyour enjoyment ofthe world of Aquarius. 
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ZOMBIE 


You are on the mad professor's island and you are being 
pursued by the living dead. 

To the accompaniment of suitable noises you are hunted 
down by a pack of Zombies most of whom are fairly slow 
on their feet-but one of them can move as quickly as you 
can. Lure them to their fate by leading them into deep pits 
from which there is no escape. But do remember the 
crazy who can run as fast as you can. 


How to play 


Keep moving by using the Z and X and the . and ; keys to 
stay alive: 


10 REM Zombie 
15 H=10 PI1=10 
17 2=N 

20 PRIHTCHR$C 11):POKE 12369,32 = F0RL=13312 
TO 14311 : POKEL36 : NEXT 

30 RESTORE:F0RL=12299T012315=REffDD* : POKE 
L.. ASCC D$ > : NEXT 

35 X=20 : Y= 18 : S= 12328+X+40*Y = POKES-*-1024,1 
60 : POKES,146 

40 DIMhv N>.BC N> = F0RL = 1 TON 

50 AC L >= INTC RNDC 1 >*40 > : BC L >= INTC RNDC 1 >*2 

4 >:S=12328+ACL >+48*BC L > 

55 IFPEEKCS >< >32THEN50 
57 POKES.25 : NEXT 
60 F0RL=1TGPIT 

63 S=12328 + 1 NTC RNDC1 >*960 > : IFPEEKCS ><>32 
THEN63 

66 POKES+1024,4:POKES.150 = NEXT 
70 C=0:D$="i" 

100 C=C+1:IFC>NTHENC = 1 
105 I FACC> = -lTHEN 100 
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1 07 0 = i2323+AC C >+40*Be U > 

110 S=S G N C X - A C C > > : T=S G N (. V - B C U > > 

115 M=123£9 + ACC > + 40*B<C>+S + 49*T 

1 20 I FF'EEKC M >= 150THENGOSUB580 : AC C >=-1 : PO 

Kio,3£ : POKEM,32'GOT0200 

130 IFPEEKC fl >=146THEN700 

140 POKED,32 : ACC >=ACC >+ 8 : B< C>=B(C > + T : POK 

EM . £5 

150 :-;OUND< 1 ,4Q > 

2 8 0 K $ = IN K E Y % ' IF K $ < > " z" A N D K $ < > 11 x" A N D K $ < > 
" "ANDK$<>";"THEN220 

210 D $ = K f 

220 S=X'T=Y:IFD$="z"AHDS>@THENS=S-1 

230 IFD$ ="x"ANDS< 39T HEHS = S +1 

240 IFD$=" . "ANDT<23THENT=T + 1 

250 IFDf=";”ANDT>0THENT=T-1 

260 0=12328+X+48*Y : M=1£328+8+40*1 : IFFEEK 

<M>=150THEN700 

270 IFPEEKC M>=25THEN700 

£30 POKED,32=POKEO+1024,36'POKEM+1024,16 
0 ; POKEM,146 
285 X=S : Y=T 
290 GOTO 100 

500 z=Z-l'IFZ=0THEH800 

510 FORL=1TO50'SOUNDC2,L >■SOUNDC10,0> : HE 
XT:RETURN 

700 FORL=1TO50 : SOUNDC5,I NTCRNDC1>*100>+5 
0 > = POKE 12238,I NTCRNDC1>*£>+30 
765 NEXT 

710 PRINT=PRINT'PRINT : PRINT" CAUG 

HT BY THE ROBOTS" 

720 IFINKEY$<>""THEN720 
730 IFINKEY$=""THEN730 
740 RUN 

880 REM PIciHer win routine 
310 PR I NT:PR I NT : PRINT : PR I NT'PR I NT" 

YOU ESCAPED" 

820 GOTO720 

1000 DATA*,*,Z,0,M.B.I,E," ",R,0,B,0,T,S 

, * . * 




5 


INVADER 


Well, it is time to save the world at last from those alien 
invaders 

They are coming across the screen in waves but this time 
you have all your laser guns in full firing order. Keep 
blasting away as there can be anything up to sixteen 
waves of attackers. 


How to play 


Press any key on the board. We told you all the lasers 
were working this time didn't we? 


10 REM Invader 

£8 PRINTCHRfC11> = POKE 12369,32 = F0RL=13352 
TO 14311 POKED,32 : NEXT 
30 W=1 : SC=0 

40 FORL=12296TO1£310 = READD$ = POKED,ASCC D$ 

> = NEXT 

50 B=13268 

60 POKED,143 

70 POKEB+1024,160 

80 SPEED=100 

90 IFINKEY$<>""THEN90 

100 S=12328+40*INTCRNDC1>*12> 

110 POKE 13312.W = POKE 13351,M 
120 I=S : S=S+40 
130 IFW=17THEN600 
140 X=@ 

150 IFWC10THENPOKE12310,W + 48 = G0T0288 

160 POKE 12310.49 = POKE 12311,38+W 

200 POKE I,32'1 = 1 + 1 

210 IFI=STHEN250 

220 X=X+1'POKEI,20 

240 IFINKEY$=""THEN300 

245 GOTO500 
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250 FORL=1TO350 : SOUND<1,L> : NEXT 
260 W=ki+1 
270 POKE I,32 
280 GOTO100 

308 FORJ=1TOSPEED : NEXT 
310 GOT0 2 00 
500 IFXO20THEN250 
510 POKE I.209 

520 FQRL=255T01 STEP-4=SOUNDCl,L> : POKEI + 
024,L : NEXT 

530 SC=SC+10 : POKE I +1024,32 

Fi40 FORL= 1TO2000 : NEXT : GOTO260 

600 PR INTCHRiC11):FORL=13312T013351=POK 

L.1 : NEXT 

610 PRINT PRINT : PRINT : PRINT : PRINT : PRINT 
PRINT:PRINT 

620 PRINT" AFTER 16 ATTACK WAUES" 

630 PRINT" YOU NAME SCORED" 

640 PRINT" " ; SC- 

650 IFINKEY$<>""THEN650 
660 IF INKEY$=""THEN660 
670 RUN 

1008 DATAA , T, T, A, CK, " " , W, A, U, E, " " .. " = 
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DRIVING 


Don't worry we haven't put in a gear stick or a clutch and 
you won't be breathalized if you do wander all over the 
road but it might make a good test before you let your 
friends drive home from your next party. 

The object is to steer your car down the road but the road 
does weave about a bit and you will hear some nasty 
noises if you don't make it to the end. 

For the fast Harry's and loonie Lizs' among you we have 
put in a level of difficulty so that you can show off your 
reactions to the road changes. 


Howto play 

Use keys Z and X for left and right and. to steer straight. 


10 REM Drivinq 
15 PR INTCHR$( 11) 

1 “7 Cp = ft 

20 INPUT"Dif ficu114 < 4-7) ";D 
30 I FD< 40R.D >70RD< > I NT< D )THEN28 
40 F'RINTCHRf< 11) 

42 POKE 12369,32 
44 FORL=13312T014311 
46 POKEL.. 32 
48 NEXT 

50 C= 12348=R=13222 
54 FQRL=1T023 
56 PRINT 
58 NEXT 
60 D$="." 

70 F0RL=13352T013391 
80 POKELj16 
90 NEXT 
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180 POKER,135 = POKER + D,135 
185 SC=SC+5 
187 SOUHD< 1.. 1 > 

119 IFRHDC1>>.5ANDR>13283THENR=R-1 
128 IFRND< 1 > > . 5AHDR:< 13247-DTHENR=R+1 
208 K$= INKEYf 

285 IFKf<>"z"ANDK$<>“."ANDK$<>"x"THE 
210 D $ = K $ 

228 E=C 

225 IF D $ = " z" A N D E > 12 3 2 3 T H E N E = E -1 
230 IFD$="x"AHDE<12367THENE=E+1 
248 IFPEEKC E+48><>32THEN388 
258 PRINT 

255 POKEE+1024.16 

256 POKEE,156 

^ "7 f; = C 

260 POKE 13243,32 
278 GOTO108 


3 0 0 

REM Cr 

ashed 

the car 

910 

F0RL=1 

T 0 8 0 


928 

SOUND':: 

1, L > 


924 

C=INTC 

R N D ( 1 

>$15+ 1 > 

326 

POKE 13 

312, C 



328 POKE 13351,0 

329 NEXT 

'320 PRINT" : ::::::::: :::CRASHED : 


335 PRINT" SCORE 

337 POKE 13249,32 

340 IFINKEV$<>""THEN940 

358 IFINKEYf=""THEN950 

3 6 8 R iJ N 
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HANGMAN 


You have probably played with paper and pencil before, 
to while away a train journey or a wet afternoon, but 
against a computer? 

The object is to spell out the word the computer has 
chosen in as few moves as possible, or the little man 
hangs. Each mistake you make draws another part of the 
gallows, the rope and the victim. 


How to play 

Press letter keys for your selections. 


Programming hints 


All of the words can be changed by altering the DATA in 
lines 1000 onwards. You will soon find it necessary to 
change, and enlarge the computer's vocabulary. 


10 REM Hanqman 
15 CLEAR 100 
17 CR=0 

28 PR INTCHRf<11):FQRL=1 TO INT<RND<1 >*18 + 1 
>:READW$:NEXT 

38 POKE 12369,32 = W=LEN< W$ > ■ F0R.L=1T0W : POKE 
12418+L,95 : NEXT 

48 F0RL = 1T026 ■■ P0KE13214+L, L+64 : NEXT 
58 Cf="***HANGMAN***"=F0RL=1TOLENCC$> = P0 
KE12292+2'4L , ASCC MID$C Cf, L, 1 > > 

68 NEXT =F0RL=13312T013351 : POKEL,113 = NEXT 

8 * j — 0 

88 L$="abcdef qhi jkl mnopqr stuvyjxyz" 

188 K$ =INKEYf : IFK$<"a"0RK$>"z"THEN 100 
110 K=ASCC K$ >-96 : IFMID$< L$, K1 >=" -"THENS 
OUNDC 68,100 >:GOTO100 
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120 P0KE13214+K,95 : L$=LEFT$<L$,K-l>+"-"+ 

RI GHT$< Lf26-K > 

130 F = 0 : FQRL= 1TOw 

146 IFK$=MID $ ( 14$, L, 1 )THENF = 1 : CR=CR +1 : POK 
E12418+L.. K+64 

158 NEXT = IFF=0THEHG=G+1■GOSUB500 = GOTO 100 
160 IFCR=WTHENPRI NT = PRINT = PRINT:PRINT=PR 
INT" CORRECT"=GOTO906 

179 GOTO 100 

500 FORL=1 TO 1503TEP3 = SOUND(1 , L > =NEXT 
505 0NGG0T0510,520,530,540,550,560,570,5 
8 0 

510 F 0 R L =13 0 2 4 T 013 0 3 0=P 0 KE L.163 : N EXT : R E T 
URN 

520 FORL=12983T012583STEP-40=POKEL,234=N 
EXT = RETURN 

530 POKE 12984,218 : RETURN 

540 FORL=12544TQ12548=POKEL,31 : NEXT=RETU 
RN 

558 POKE 12584,282:RETURN 

568 POKE 12549,28 = POKE 12589, 151=RETURN 

570 POKE 12588.218 : RETURN 

580 POKE 12629,146- FORL=1 TO 100 = SOUNDC1,50 

0+1 NTC RNDC 1 >448 > > = NEXT = GOTO908 

300 IFINKErf<>""THEN900 

910 IFINKEY*=""THEN910 

920 RUN 

1008 DATAcompu+er,dictionary,pIough,tede 
r a 1,historic 

1810 DATAairship,sky,e1ephant,m a + h e m a tic 

S SUCC6SS 
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BOMBER 


You may have seen this game in an arcade form, but 
normally there are several chances for you before it's too 
late. 

Your plane is dropping into the middle of an empty city, 
and the only way you can save the lives of yourself and 
your crew, is to flatten all the buildings by releasing your 
bomb load one by one. It may seem easy, but just wait 
until you are only one level off the ground, and there are 
still two sky scrapers standing. 

Just to make it easier for you, we have put in a difficult 
level so you can choose your own speed of play. 


Howto play 

Guage the angle of your plane, and drop bombs by 
pressing SPACE button to release. 


10 

REM Bombe 

r 







15 

It . 

PRINTCHR* 

r- ; 

< 1 1 > : I 

HP 

UT"Di t i 

1 c 

u 1 • y < 

i 

40 > 

16 

IF D < 10 R D > 

40ORDC 

/ I 

NTCD >TH 

EN 

1 CT 

X 



17 

W = D 








28 

PRINTCHR* 

< 11 > = P 

OK 

El 2369, 

.j y 




30 

F0RL=1335 

2 T 014 3 

X X 

=POKEL, 

■1< d. 

= NEXT 



48 

F0RL=1324 

8 T 013 2 

•I* «"’ 

:F0RH=L 

TO 

L - 4 0 41 

NT 

< RN 

DC 1 

>45>STEP- 

48 







50 

POKEH,134 

: POKEH 

+ 1 

024,64= 

NE 

XT = NEX 

T 


60 

H = 0 : B = ~ 1 : 

X = 8 ■ Y = 

0 






100 

REM Main 

Loop 







1 1 0 

n=12328+ 

X + Y 4 4 8 

: P 

0KE0,32 





120 

X = X +1 : IF 

X = 4 0 T H E N 

X = 8 = Y = Y 

+1 




138 

IF Y = 2 4 T H E N 4 8 0 







148 

8=12328+ 

X+Y440 

: X 

FPEEKC 8 

) •( 

> 3 2 T H E 

N5 

88 
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150 POKES,154 
2 0 0 R E H M o v e B o ni b 
218 IF B = -1T H E N S 0 0 

220 0=12328+A+B*48 : B=B+1 : POKED,32 : P0KE0+ 
1024.32 

230 IFB=24THENB=-1=GOSUB300=GOTO 100 
240 S=12328+A+Bt48 : IFPEEKCS >=134THENSC=S 
C +10 

245 SOUNDC 1,B*8> 

250 P0KES, 135 : (j 0SUB3 00 : G0T01 08 
380 REM Delciq 
310 F0RD=1TOW=NEXT=RETURN 
480 REM Plane Landed 
410 F 0 R L =1T 0 4 

420 F0RM = 200T050STEP-5 = SOUNDC 1 , M > NEXT = H 
EXT 

4 3 Ei G 0 S U B 3 0 0 : u 0 T 0 5 5 8 

5 00 R E M Plane Cra she d 

510 P 0 KE S,2 0 8:G 0S U B 3 0 8 = p 0 KE S,20 9 = G 0 S UP3 0 
8•SOUNDC 48,500> 

558 PRINTTABC 18 )"Score " :■ SC 

560 IFINKEY$< >"“THEN568 
578 IFINKEY$ =""THEH578 
580' RUN 

608 REM Test KBD : 

610 IFINKEY$<>" "THENG0SUB388 = GOTO 188 
620 B = Y+ 1 : A=X ; GOSUB308 : GOTO 188 
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SNIPER 


As you will know, your Aquarius can produce a little man 
for use in many of your games programs. We have used 
him here, but not in the nicest way. 

He is running for his life. 

The figure will appear on the screen, sometimes for a few 
seconds, sometimes for a split second, and you must line 
up your rifle and bring him down before he vanishes 
again. 

It's not nice, as we said, but then again he might be an 
advance man from a foreign planet and we all know what 
a nuisance they can be. 


How to play 


When the character appears use keys Z and X to move 
and .tofire. 


10 REM Sniper 

28 PRINTCHRfC11> : POKE 12369.32 : F0RL=13312 
TO 14311 POKEL,224 : NEXT 
30 SC=0 
48 W=0 

180 IFRNDC1><.995THEN108 

200 P=I NTC RNDC 1 >*480 >+12328 

218 POKEP+1824,48=POKEP+1864.48 : POKEP,21 

: POKEP+40.22 

250 G=13188 

260 D$="x" 

270 W=W+1 

288 IFW > 10THENPR.I NT : PR INTCHR$C 11 > : PRINT : 
PR I NT:PR I NT:PR I NT = PR I NT:PR I NT"SCORE : B ;S 
C : GOTO800 
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3 0 8 IF R N D ( 1 > >■ . 9 9 T H E N P 0 K E P.. 3 2 : P O K E P + 4 8, 3 2 
:P n KEG,32 : G0 S U B 580 = GQT 010 0 

318 K$ =INKEY$ : IFK$<>"z"ANDK$<>"x"ANDK$<> 
11 . “THEN330 
328 D$=K$ 

PPPi h=G : IFD$="z"ANDH>13168THENH=H-l 
340 IFD$="x"ANDH<13207THENH=H+1 
350 IFD$=".“THEN400 

368 POKEG, 32 =POKEH,143 = G=H = SOUND(18,28 >= 
G 0 T 0 3 0 8 

400 IF INK < G-P >.-'48 > = C G-P V48THEN450 
418 FORL = GTO 1232SSTEP-48 = POKEL+48, 32 = POK 
EL , 94 

428 SOUNDC5.L-12328 > = NEXT = POKEL+48,32 = PO 
KEP:32 : POKEP+48,32 

438 POKEP + 1824,224 = POKEP+1864,224 = GOSUBS 
8 0 : GOT 0100 

458 FORL=GTOPSTEP-40 = POKEL + 40,32 = POKEL,9 

4 

460 SOUNDC5.L-12328 > = NEXT = SC=SC + 10 
462 POKEL+40,32 

465 F0RL = 1T050 = POKE 12288,INTCPNDC1>4256 > 

=NEXT : POKE 12288,32 

470 FORL=1TO3000=NEXT=GOTO180 

508 FOPL=1TO580STEP12=SOUNDC1,L >=NEXT = RE 

TURN 

800 IFINKEY$< >""THEN80O 
810 IFINKEYM" "THEN818 
828 RUN 
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ASTEROID STORM 


It looks as if the situation is pretty impossible for you and 
the crew of your starship. You are heading into an 
asteroid belt, and your force field shield has gone. To add 
to your problems, your laser guns have overheated and 
your navigator has got a head cold. It looks like another 
average Monday morning in deep space. 

All you can do is to manoeuvre your way through the 
waves of asteroids and last as long as you can. There is 
no let up though, even when you get through the first 
100, as things get even tougher. 

Good luck. Captain. 


Howto play 

Use keys 8 and X to move left and right. 

Your score will appear when you finally bite the dust — 
asteroid dust. 


10 REM Asteroid storm 

11 14=1=0$="." 

12 .J =100 

13 SC=0 

15 PRINTCHR$C11PRINT=PRINT=PRINT‘PRINT 
= PR I NT = PR I NT = PR I NT = PR I NT = PR I NT = PR I NT" 
ATTACK WAUE = " ; 14 

28 PR INTCHR$<11):POKE 12369,32 = F0RL=13352 
TO 14311= POKEL, 14* 16 = NEXT 
25 F0RL=1T023=PRINT=NEXT 
30 8=12347=C=212=B=160 
48 K=0 

100 REMMain loop 
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110 POKE13249+INKRHDC1>*39>,135 
12S POKE 13249+1 NT<RND<1 )439>,135 
150 K$= IHKEV $ ■■ I FK$< > " z"ANDK$< > " . " THEN 170 
160 D$=K $ 

170 IFD$="z"AMDS>12329THENS=S-1 

180 IFD$ ="."ANDS<12365THENS = S+1 

180 PRINT=POKE 13249,32 = SC = SC+10 : K=K+1 

195 IFK=100THEN300 

200 REM Detect 

210 IFPEEKtS)=1350RPEEK(S + l>=135THEN400 

250 POKES,156:POKES+1,156 

260 GOSUB500 : G0T0100 

3 8 0 R. E M N e x t ■» a v e 

310 W=W+1 : IFW>15THENW=1 

320 SC=SC+100 : FORL=1T03 : FORM=408TG28STEP 
-5 : S0UND (. 2 . M ) : NEXT : NEXT 
330 PRINT : PRINT : PRINT"BONUS :: 100 = = = = 
NEXT WAUE" 

340 IFJ< >1THEN J=J-1 
350 FORL=1TO1500 : NEXT 
360 GOTO 15 
400 REM Destro 4 ea 

410 FORL=1TO350STEP3 = SOUNDC 6,L > = NEXT 
428 PRINT PRINT : PRINT"DESTROYED"=F0RL=1T 
03000 : NEXT 

430 PRINTCHRfC11> : PRINT : PRINT = PRINT = PRIN 
T : PRINT : PRINT : PRINT : PRINT" You Score 

d =";SC 

440 IFI NKEY$< > 11 "THEN440 

450 IFINKEY$=""THEN458 

460 RUN 

508 REM Delaw 

510 F0RL=1 TOj:NEXT:RETURN 
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ALIEN ATTACK 


Just when you thoughtyou had got rid ofthose invaders, 
here they come again. 

This time, however, they are coming at you from the top 
of the screen and you must protect your laser base by 
moving and firing at the same time. 

They won't always come from the same place on the 
screen so don't think you can just sit there and knock 
them down. 


How to play 


Use keys Z and. to move and the SPACE button to fire. 


10 REM Alien Attack 

28 SC=0 : PRINTCHRK11>:POKE 13312.1 : POKE 13 
351,1 

38 POKE 12369,32 = F0RL=13352T014311=POKEL, 
48 : NEXT 

48 B=13268=POKEB,143:FOKEB+1824,16=D$="z 

11 

45 X=0 

58 A=12328+1 NT<RND(1 > 1 48> 

188 GOSUB280=G0SUB388 : G0SUB288 : GOSUB480 

110 IFAO8THEN180 

120 GOT058 

2 00 R E M M o ve Base 

205 N=B 

218 K$=INKEY$ : IFK$ = " z " 0P.K$ = " . "THEN215 

211 IFK$< >" "THEN228 

212 IFHO0THEN215 

213 H=B-48 : G0T0228 
215 D$=K$ 

228 IFD$="z"ANDB >13248THENN=N-1 
230 IFD$="."ANDB<13287THENN=N+1 







240 IFN=BTHENRETURN 

250 IFPEEK<H X>32THENS00 

260 POKES,32 = POKEB + 1024,48 : B=N 

278 POKEB+1024,16=POKES,143 = RETURN 

3 0 0 R E M Move Alien 

310 h=h+40 : IFN=BTHEN800 

320 IFN>13247THENP0KEA,32 : POKEA+1024,48 : 
A=0=GOTO350 

33@ POKEA,32 = POKEA+1024,48 : POKEH + 1024,16 

0 = POKEN,212=A=H 

35@ IFN=0THENX=A+48 : RETURN 

355 Y=N+80 

360 IFY=B0RY = B+48THEN800 

370 IFY> 13247THENP0KEX,32 = X=0 : RETURN 

380 POKEK,32 ; X=Y : POKEY,198 

390 RETURN 

4 00 R E H M o ve Missile 
410 IFHO0THEN450 
430 RETURN 

450 N=H-40 

460 IFN<12368THENP0KEH,32 : POKEH+1024,48= 
H=0=RETURN 

470 IFPEEKC N >< >212THEN488 

475 POKEH.32=POKEH+1024,48 : H=8 : A=0 : POKEN 

,32=SC=SC+10=RETURN 

480 POKEH,32=POKEH+1024,48 : H=N=POKEH+182 

4,112 = POKEH,94 = RETURN 

800 REM Base is hit 

885 POKEB,209 = POKEB-40,32 

810 FORL=1TO300STEP2 = SOUNDC1,L) 

828 POKE13312,INTCRNDC1>*15+1> = POKE 12288 

. INTCRNDC1>42>445+185 = NEXT 

825 PRINT = PRINT = PRINT = PRINT = PRINT = PRINT = 

PRINT=PRINT=PRINT 

827 PRINT" SCORE ="/SC 

830 IFINKEY$<>""THEN830 

840 IFINKEYf=""THEN840 

850 RUN 
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CONVERTER 


If you are really interested in the inner workings of your 
computer then you will know that it works in binary 
numbers. This program will help you to convert your 
listings/flowcharts from decimal to binary; and from 
binary to decimal. 

If you want to peek and poke and are a machine code 
enthusiast, then this is for you. 


Howto play 

This is evident when you complete listing the program. 
You will soon realise that this is for you. 


10 REM Converter 

20 PRINTCHR$<11> = PRINT = PRINT"1> Decimal 
to binar y"=PR I NT : PR I NT"2 > Binar y to De 
c i ma 1" 

30 K$=INKEY$=IFK$<>"1“ANDK$<>"2"THEN30 
48 IFK$="2"THEN200 

100 PRINT = PRINT : INPUT 11 Number to convert 

" i N 

110 B$=" " 

120 N=N/2 = Q = N-1 NT<N > 

130 IFQ = 0THENB$="0"+B$ = GOTO150 
140 B$="1"+B$ 

150 N= I NT (. N > = IFN< >8THEN 120 
160 PRINT = PRI NT"BINARY = ";B$ 

170 GOTO508 

200 PR I NT:PR I NT = INPUT"Binar y Number to C 
onvert";B$ 

210 D=0=P=0 

228 P = P + 1 = IFMID$<Bf,P,1X>"0"THEN240 
230 IFPOLEN(B$>THEN220 

248 IFMID$(E$.P.1>="1"THEND = D42 = D = D+1=GO 
T 0270 









0 D=D$2 

8 P=P + 1 : IFPOLENC E$ >THEN248 
0 P RI NT : PRIN T " DE CIMAL " .■ D 
0 G 0 T 0 5 8 9 

0 IFINKEY$<>""THEN500 
0 IFINKEY$=""THENS10 

0 got020 
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MINEFIELD 


Your people have retreated to their own lines and have 
left you to find your own way back to Headquarters 
through the minefield. You must aim for the top of the 
screen which isyourtargetand safety. 

You will have to be quick however because the mines 
increase in number as you move. You must get home 
before your route is blocked. 


Howto play 

Using keys Z and X . and ; guide yourself around the 
minefield. 


10 REM Minefield 
12 14=0 : SC = 0 : NM= 1 

28 PRINTCHRf<11> = POKE 12369,32 : F0RL=13352 
TO 14311 : POKEL,16 : HEM T 
7.0 FHRL = 13312T013351 =POKEL,W+112=NEXT 
48 P= 13248 = P.= 12328 +1 NTCRNDC 1 >*300 > 

58 PQKEP + 1024.48 = POKEP,25 
60 POKER+1024,32=POKER,146 

70 RESTORE:F0RL=12295T012300 : READLL$ : POK 
EL,ASCC LL$ > : NEXT • 

71 IFW<10THENPOKE12382,W+48 : GOTO 100 
73 POKE 12302,49 : POKE 12303,W + 38 

100 K$= IMKEYT = I FK$< > " z" ANDK$< > " x ,! ANDK$< > 
" . "AHDK$< >" "THEN 110 
105 D$=K$ 

110 TP=P : IFD$="z"ANDP>12328THENTP=P-1 

120 IFDf="x"AHDP<13287THENTP=P+1 

130 IFD$=".“ANDP<13248THEHTP=P+40 

140 IFD$ =";"ANDP>12367THENTP=P _ 40 

145 IFP=TPTHEN180 

150 POKEP,32 : P0KEP+1024,16 

168 P=TP■IFPEEKCP><>32THEN580 
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170 POKEP+1024,48 : POKEF,25 

180 FORL=lTONM _ 

190 8= I NTC RND< 1 >*960 >+12328 : I FPEEK.C S K >•-■ 

2THEN190 

200 POKES , 135 : POKES+ 1024, 16 : SOUNDS 4 , 1 b ! 
NEXT 

210 GOTO 100 

-.80 IFPEEKC P >= 146THENGOSUB600 ; GOT020 _ 

510 POKEP +1024,48 : FORL=1 TO 100 : POKEP,208+ 
INT<RNDC1>*2 > 

520 SOUNDC1,80 + 1 NTCRNDC1>*5> > : NEXT 
530 POKEP.. 32 

548 PR I NT=PR INT = PRINT : PR I NT : PR I NT : PRiNT : 
PRINT ; PRINT"You hove been caught by the 

miHtS _ _ 

545 PR I NT:PR I NT" SCORE ■ ;SC 

550 IFINKEYf<>""THEN550 
56@ IFINKEY$=""THEN560 
5?0 RIJN 

S00 FQRL=1T04 : FORLL=200TOlSTEP-3 : SOUNDC1 
,LL > : NEXT = NEXT 

618 NM=NM+1 : 14=14+1 : SC=SC+NM*30 : RETURN 
700 DhTAW.. h, U, E.. " " , " : " 
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DIGITAL CLOCK 


You can either run this program on it's own, or use it as a 
subroutine within your own programs to show how long 
the game has been running. 


Programming hint 


The large delay loop at line 60 shows how fast BASIC 
works. This delay can be altered. 


10 REM DIGITAL CLOCK 

28 H=0 

30 M=0 

40 S=0 

50 D=200 

60 D=770 

70 PR.INTCHRfC 11 > 

100 GOSUB400 
110 F0RL=1T0D 
120 NEXT 

130 S=S+1:IFS<60THEN100 
140 S=0:M=M+1 = IFM<60THEN108 
158 M=8:H=H+1=IFHC24THEN100 
160 H=0 
170 GOTO 100 

400 Tf = STR$C H > + “ " + STRf C M >+" = *'+STR$C S > 
410 T$=" "+T$+" " 

428 F0RL=1T0LENC T$ > 

430 P0KEL+12297,ASCCMIDTC T$,L, 1> > 

440 NEXT 
450 RETURN 
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HEART CATCHER 


A catchy little program this as your little man runs around 
the screen seeking falling hearts. 

The story is that he has lost his heart to a cruel woman - 
don't we all - and he is now trying to get it back as it falls 
to the ground. You might even say that Romance is in 
the air'. 

See if you can help him find his heart and anyway you get 
a scorefortrying. 


How to play 

Move the poor little fellow from side to side by using keys 
Z and X for left and right. 


10 REM Heart Catcher 
2Pi PR I NTCHRf ( 11 > : POKE 12362,32 
38 F0RL=13352T014311 
48 POKEL,16 ; NEXT 

45 C$="ROMANCE IS IN THE AIR" : F0R.L=1TQ21 
:P0K.EL +12297,ASCCMID$<C$,L,1> > 

47 NEXT 

50 H = 0=E=13268 : D$=”." 

60 T L=0 

100. IFH = 0THENH= 12328 + 1 NT( RND( 1 >*400 > : HS= 
I NTC ( H-12328 >-"5 > 

1 Ci5 TL=TL+1 : IFTL=2000THEN600 

118 POKEH,32 : POKEH+40,212=H=H+40 : IFH=BTH 

EN400 

120 IFH>13247THENP0KEH,32 : H = 8 

200 K$ =INKEY$:IFKf<>"z"ANDK$<>"."THEN228 

210 D$=K.$ 

228 Q=B +10 2 4 

230 IFD$="z" ANOB >13248THENP0KEB,32 = POKEQ 
, 16 : B=B — 1 'POKEB+1024,48 : POKED, 147 
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235 I FD$ ="."hNDB< 13287THENP0KEB,32 : POKEQ 
.16 = B=B+1:POKEB+1024,48 = POKED,147 
240 GOTO 100 
400 REM Cauqht 

410 F0RL=1T03 : F0RW=100T01 STEP-5 : SOUNOC1, 
W + 3*L > : NEXT : NEXT 
420 SC=SC+HS 

430 POKEH,146 = H=8:GOTO 108 
608 REM Ena of game 
685 F0RL=12288T012327:POKEL,32:NEXT 
610 C$=" YOU SCORED"+STR$( SC>+" HEARTS" 
620 F0RL=1T0LEN<C$ > 

630 POKEL+12295.ASC< MID$< C$ .L,1 >> = NEXT 
640 IFINKEY$<>""THEH640 
650 IFINKEY$=""THEN650 
660 RUN 
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NUMBER 


Your computer is going to offer you the chance to show 
off, as it is going to choose a number between 1 and 100 
and ask you to guess it's choice. 

The computer will tell you if your guess is too high or too 
low. 


Howto play 

Simply key in your number guess, and your computer 
will do the rest. 


Programming hint 

If you get too clever at this game too easily, change the 
figure of 100. 


10 REM Number 
28 PRINTCHR$< 11 > 

30 X= I NT<RHD<1>*100+1> 

40 PR I NT:PR I NT = PR I NT : PR I NT"I ' ve thought 
of a number" 

50 PRINT : INPUT"Your Guess ";G 

60 IFG >XTHENPR INT"Too big";GOTO 110 

70 IFG<XTHENPRINT"Too sma11"=GOTO 110 

30 PR I NT"Yes that's it" : PRINT 

90 F0RL =1T050:S0UND<6,INT< RNDC1>4200 > > = N 

EXT 

100 GOTO20 

110 PR INT"Try Again"•GOTO50 
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LUNAR LANDER 


Your skill as an astronaut is now needed as you try to 
bring your lander safely down to the moon's surface. 

If you cannot control the descent by studying the fuel left, 
the engine burn, height and velocity then you will crash 
"into the bleak surface and bang goes our national space 
budget. So do your best and get it rightfirsttime. 

By the way, if you get it right, you'll be promoted to 
Captain so goodness knows what your role is at present 
-cook? 


How to play 


Use the number keys to control the rate of fuel burn. Fuel, 
engine burn, height and velocity will be shown on screen 
and updated as you slow the ship down. It must land at a 
speed of less than 0.5. 


1@ REM Lunar Lander 

20 PR INTCHR$<11> : PRINT = PRINT : PRINT : PR I 
PRINT : PRINT" LUNAR LANDER" 

7.0 PRINT : PRINT = PRINT" Press <1-9 

for FUEL BURN" 

40 G=5 


50 3=200 
70 F =1000 
80 B$="5" 

90 U= 1 

100 REM Main Loop 
110 PRINTCHR$< 11 > 

115 IFF=0THENPRINT" NO FUEL REMAINING" 
GOTO130 

120 PR I NT"FUEL : " J F 

130 PR I NT"BURN ■ ";B$ 
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140 PRINT "HEIGHT = " S 

150 PRI NT"VELOCITY : "i-V 

160 PRINT:PRINT:PRINT = PRINT:PR I NT"<1-3 > 

tor BURN" 

170 K$=INKEYt=I FK$<"0"0RK$>"9"THEN300 
200 IFF<>0THENB$=K$ 

300 B = ASC<B$>-48 : F = F-B=IFF< =0THENF = 0=B=0 
320 A=B 

330 U=U-<ft—G>/40 

340 S=S-U 

350 IFSO0THEN400 

360 SOUNDS 100,INT(S > > = GOTO 100 

4 0 0 IF V i. . 5 T H E N 4 4 0 

405 PRINT"CRASHED"=F0RL=1TO500STEP15 = SOU 

NDC1,L >:NEXT 

410 IFINKEY$<>""THEN410 

420 IF INKEY$=""THEN420 

430 RUN 

440 PRINT : PRINT : PRINT" SUCCESSFUL LAN 
DING" : PRINT"THE RANK OF CAPTAIN"=PRINT"I 

5 YOURS" 

450 GOTO410 
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MONDRIAN ART 


Well, to tell the truth, we had to look it up to see what it 
was about and it seems there was a Dutch painter named 
Mondrian who painted abstract art. What has that to do 
with your Aquarius you may ask. Well, the fact is that 
your modest little computer has the talent to originate for 
your eyes only - abstract art. If you have had a hard day 
at the office, in the kitchen or at school just enter this 
short program into your computer - sit back and watch 
the results. 

It really isthe most beautifully relaxing experience. 

10 REM Mondrian Art 

20 PRINTCHRfC11 > = POKE 12369,32 

30 C = INT< RND(1>*16 > : F0RL=13312T014311 : PU 

KEL.C : NEXT 

40 F0RL=1TO50 

50 ft= i NT< R.NDC 1 >*40 > : B= I NT< RND<. 1 >*24 > 

60 C = I NT< RHD< 1 >*40 > : D= INT( RNDK 1 >*24 > 

65 E=INT<RND<1>*16> 

70 FORY=BTODSTEPSGN<: D-B > 

S0 F=13352+40*Y 
90 FORX=ATOCSTEPSGNCC-A> 

100 POKEF+X,E ; NEXT=NEXT 
105 NEXT 

110 C$="SUCH IS TRUE BEAUTY" 

120 F0RL=1T0LENCC$> 

130 P0KEL +12295,ASCCMID$(C$,L,1> > 

140 NEXT 

150 IFINKEY$<>""THEN 150 
160 IFINKEY$=""THEN 160 
170 RUN 
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PAINTER 


If you have been battling in outer space for the last few 
days, and you are looking for something a little more 
relaxing, here'syourprogram. 

Your Aquarius has gone mad and painted nasty aerosol 
marks all over the background colour of the screen. You 
have to clean up the mess before the law arrive and arrest 
you for vandalism. 


How to play 

Using keys Z and X for left and right, and 0 and ; for up 
and down, you have to paint overthe spoilt area. 

Your final score will appear at the game end. 

10 REM Painter 
15 SC=0 W=0 

20 PRINTCHR$C 11): POKE 12369,32 : OINK RNDC 
i y% is) 

25 IFO0QRO15THEN20 

30 F=INTCRNDC1 >*16> : IFF=CTHEN30 

35 LL=0 

40 F0RL=133121014311 : POKEL,C : NEXT 
50 P=13852 
60 FORL=1TO140 

70 POKEP,F:IFRNDC1 )>.7ANDPC14311THENP=P+ 
1=GOTO90 

75 IFRNDC1 )>.7ANDP<14271THENP = P+40 : GOTO9 
0 

80 IFRNDC1 )>.7ANDP>13352THENP = P-1:G0T09© 
35 IFRNDC1 )>.7ANDP>13412THENP=P-40■G0T09 
0 

90 NEXT 

95 P=12828 : D$="." 
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100 K$=INKEV $ IFK$< >"z"ANDK$<>"x"ANDK$<> 

" . "ANDK$< >" i "THEN 120. 

110 D$ = K$ 

120 0=P= IFD$="z“ANDO>12328THENO=0-l 
130 IFD$="x"ANDQ<13287THEN0=0+1 
140 IFD$="." A N D 0 < 13 2 4 7 T H E N 0 = 0 + 4 8 
150 IFD$= " .: "ANDO>12363THENO = O-40 
180 POKEP,32 = P0KEP + 1024.C = P0KE0,135 
170 p=o IFPEEKCP+1024 )=FTHENSC = SC+10 
180 LL=LL+1 : IFLLC280THEN100 
1 Q 0 c$= "SCORE : " +STR$CSC > : GOSUB500 
206 F0RL= IT02000 •• NEXT 
30@ W=W+1 : IFW<>10THEN20 

310 Ct=“FINAL SCORE ="+STR$CSC> : G0SUB500 

320 F0RL=1TO2000 : NEXT 

330 IFINKEY$<>""THEN330 

340 IFINKEY$=""THEN340 

350 RUN 

=100 F0RL= 1TOLENC C$ > • POKE 12295 + L, ASCC MI D$ 
C Cf.L.1 ) > : NEXT 
510 RETURN 
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ANAGRAMS 


Although this may look a short program you can extend, 
and change, the content to suit the player's skills. Play 
around with words and see how difficult you can make it. 

The computer will advise you of the anagram and ask 
you to identify the hidden word. The game is greatly 
enhanced if someone else programs in the choice of 
words. 


Howto play 

Type in the missing/correct word and press. 


1 y 8 R E M A n a g r a rn s 
110 RESTORE’ 

115 R E A D N 

120 F0RL=1T0INT(RH 
123 READW$ 

126 NEXT 
130 A$ = W$ 

140 F 0 R L =1T03 0 
iDO S=INT<RND< 1 >tL 
160 A$ = riID$( A$ , S , 1 
$ ,3 +1 ,255> 

170 NEXT 

130 PR INTCHR$<11>" 
NT:PR I NT 


1 >*N+1 


EN(W$>+l) 
KLEFTSC A$, S-1 


The Anagram i 


130 PRINT" ";h$ 

200 PRINT : PRINT : PRINT : PRINT 

210 PRINT" What is the hidden mo 

213 INPUTGf 

216 IF G $ = W $ T H E N 5 @ 0 

220 PRINT"Wrong .... Bad Luck" 

230 GOTO 110 

500 PR I NT"Correct.Well done" 

510 GOTO110 


:> + MID$< A 




rK. 


r d 


!< 



300 
1 000 
1 0 1 0 
1 020 
1030 
1 040 
1050 
1 0 6 0 
1070 
1 030 
1 030 
1 100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


DATA 10 

D A T A a qu a rius, c o rn p uter 
DATAte1evision,co1 our 
DAT Acinema,bunga Iow 
DATAsuitease... cassette 

D A T A c a r p e t., c e i 1 i n g 
DAT Amatheraatica1,ggrosc 
DA ■ A a e r i a 1., generator 
DAT Ag lass.,needle 
DATAsienna., vienn a 
DATAcharismatic,remote 
Da sApicture,encgclopedi 
DAT Ar abbit,aar dvark 
DATAstandard,te1ephone 
D A T A b o x e s., b o a r d 
DATAheater,ampli f ier 
DATAbas i c., v i deo 
DATAdifticult,strange 
D A T A c a r a v a n, a I a r rn 
DATAspade... skier 
DATAhoarse,frost 
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GRAPH DRAWING 


This is a simple to list program which can be very helpful 
for students and businessmen. 

Using a fine line facility, your computer will draw a sine 
graph. 


Programming hint 


If you wish to change the action of the graph, then modify 
line 40 to suit your needs. 


19 R E M b r a p h D r a w i n & 

20 PR I NTCHR$<: 11) 

21 POKE12369.32 

22 F0RL=13352T0143l1 

23 FOREL.32 

24 NEXT 

25 POKE 12369,32 

38 F0RX=8T079STEP.25 
40 Y=SIN<X/12>*35 
50 PSETCI NIC X>,I NIC Y >+36> 
68 NEXT 

78 IFINKEY$<>""THEN70 
30 1FINKEY$=""THEN80 
90 FORX=0TO79STEP 25 
100 Y=C0S< X/12 >435 
110 PSETCIHT(X >,I NT < Y>+38 > 
120 NEXT 

130 IFINKEY$< >""THEN 130 
148 IFINKEYf=""THEN 140 
150 PR INTCHRfC11) 

168 END 
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REACTION TIMER 


This is one way to test your party guests reactions before 
they decide to drive home from the party. 

The screen will change colour as you watch and you 
must react as quickly as possible by stopping the next 
change. 


Howto play 

Hit any key to stopthe program. 

Your reaction time will be shown atthe end of the game. 


1 C 0 
1 10 
115 
128 
130 
140 


REM Reaction Timer 
PRINTCHR*<11> 

POKE 12369,32 

IFRNDC1>>.995THEN198 

IFINKEY$=""THEN 120 

PR I NT •• PR I NT : PR I NT = PR I NT 


>RIN' 


150 F 0RL=258T05 50S T E P6 
168 S0UND<5,L > 

178 NEXT 
180 GOTO 110 

190 C = 0 : POKE 13312,INT<RND<1>45> 
280 IFINKEY$=""THENC=C+1 : GOTO208 
210 PRINT"Your Reaction Count is 
220 F0R.L= 1TO30 

230 S0UND< 4,150-INT<RND<1>4108>> 
240 NEXT 
250 GOTO 110 


CHEAT 
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ARITHMETIC QUIZ/ 
MULTIPLICATION TABLE 


Here are two short programs which do an awful lot of 
work. The arithmetic program includes both addition and 
subtraction questions; the multiplication program will 
print any tables you want to try. 


How to play 

Just type in your answers and see how clever you are. On 
the arithmetic program you will get a final result out of 
ten, so try not to look too stupid in front of the children. 


10 REM Arithmetic Quiz 

26 PR INTCHR$<11> = PR JNT= PRINT’ INPUT"Dif fi 
culty "D 

36 IFD<1THEN26 

35 SC=8 

46 F0RL=1T016 

56^A=INT(RND< 1 >*D*18+1 ) ; B=INT< RND< 1 >*D*1 

p6 IFRND<1 )> .5THENC=A+B : D$=" + ":GHTO80 
30 C=A-B : D$=" - " * 

36 PR I NTCHR$< 11 > : PRINT = PR I NT 11 Quest i on nu 
rnher "; L 

ty PR I NT:PR I NT : PR I NT ; PRI NT PRINT” " ■ w 
D $ :■ B" = " .; = INPUTR ' ' H 

160 IFR< >CTHEN206 

i IfcJ P RIN T : p RIN T : p RIN T " C 0 R R E C T" •• P C = 5 

128 FORW=1 TO 1886:NEXT = G0TO300 
268 REM Wronq Answer 

218 PR I NT:PR INT = PRI NT“ INCORRECT"=PR 

I NT: PRINT" ".; h D$ B ; " = " ,• C 
226 F0RW=1TO4000:NEXT 
360 NEXT 
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316 PR INTCHRfC11> = PR I NT = PR I NT = PR I NT"You 
scored : ".; SC i ■ PR I NT " out o i 

10" 

326 F 0 P. W = 1T 010 0 0 : N E X T : P RIN T : P RIN T : P RI N T : 
PRINT:PRINT"Press <SPACE> to restart" 

336 IFINKEY$< >" "THEN336 
346 RUN 


16 REM Multiplication table 
28 PR INTCHR$<11> = PR I NT 
6 6 INPUT"Constant to multiply by ";C 
46 I NPUT" Uar i afo 1 e Mu 1 tipi ier star t" U 
58 I NPUT" Uar i ab 1 e Mu 11 i p i i er end".; E 
60 PRINT:PRINT:PRINT:PR I NT"The “;C; " tim 
e s t a b 1 e " 

78 PRINT:PRINT=PRINT"Multiplier Resul 

+ ■< 

« 

8 0 F 0 R L = U T 0 E S T E P S G N < E - U > 

96 PRINTL.LtC 
100 NEXT 
110 END 
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DRAGON 


This is another of the games where we have taken so 
much of the memory of the machine that no space is left 
for REM statements. You are straight into the listings. 

You are the hero the world has been waiting forto kill the 
dragon, take the gold and save the princess. 

If you are brave you can nominate to fight, or if you have 
more sense you can choose to run away. The trouble is 
that running away doesn't mean that you will live to fight 
again. The Dragon may still get you. Anyway, if you run 
away you will get no gold and why should you, you 
miserable coward. 

Somewhere in the maze lies your destiny. Be a hero. 


Howto play 

dkeThons 36001 ^ Pr6SS N ' S ' E ' W f ° r com P ass 

If you wantto run orfight press R or F. 

The game ends if you save the princess, or are killed by 
the Dragon. y 

Programming Notes 

Rwnm" 9 ! th ® maze ' al,er ,he negative number in the 
RND (Random) brackets in line 30 of the program. 
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20 DIMN$C9>,ST<3 >,D$C 7 > = FQRL=1T09=READN$ 
(L >,ST<L >:NEXT:F0RL=1T07 
38 REhDD$CL > = NEXT = ST=RNDC-4 > = ST=50=TR=0 
100 PR I NTCHR$C 11 ); "You are in a naze" : PR: 
INT"There are exits = " 

120 EX$=""•IFRND<1)>.75THENPRINT"north" = 
EX*=EX$+"n" 

130 IFRNDC 1 > > . 75THENPRI NT " south 11 = EX$=EX$ 
+ 11 ■=■ n 

140 IFRNDC 1 )>.75THENPRINT"east"=EX*=EX$+ 
"e" 

150 IFRND< 1 )> . 75THENPRI NT 11 west" =EX$=EX$+ 

N nj H 

155 F=0 : IFEX$="“THEN 120 
160 IFRNDC1>>.95THEN700 
17@ IFRNDC1 )>.SS6THENGOSUB500 
180 IFF=1 THEN 100 

200 PR I NT : PRINT : PRINT : PR I NT"Move in whic 
h direction" : PRINT"The choice is ;";EX$ 
205 IF INKEY$<>""THEN205 
210 K$=INKEY$ ; L=0 : IFK$=""THEN210 
220 L=L +1:IFK$=MID$<EX$,L,1 )THEN300 
230 IFL<>LEN<EX$>THEN220 
2 4 ti PRINT : PRINT : PRINT" You c a n ' t n o v e in 
that direction" : GOTO200 
300 S=RND<-LtRND(1> > = GOTO 180 
508 M= INTC RNDC. 1 >49+1 ) = SM=INTC RNDC 1 >*ST< H 
> > 

510 M$="You 've bumped into a : " : G0SUB888 
:M$=D$CRND<1>47 +1 )+" "+N$(M> 

520 G0SUB888 : M $ =" What do mou w ant to do 11 
:GOSUB806 

540 K$=INKEY* : IFK$<>"f"THEN6O0 
560 SM=SM-INTCRNLK 1>4ST> = IFSM<=0THEN570 
563 ST = ST-INT<RND<1>*SM > ^IFST<=0THEN580 
565 M*="you hit the monster" : G0SUB898 : M$ 
="and it hits you" : GOTO520 

570 M$="you killed the monster" : GOSUB800 
: T=INTC RNDC1>*STCM>+2> 

571 ST = ST +1NTCRNDC1>42> 

572 M$="You find : " + STRfC T >+" gold piece 
s":GOSUB800:TR=TR+T:RETURN 

580 M$ ="You are dead "=GOSHB800■G0TH74 
0 

600 IFK$< >"r"THEN548 
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605 IFRNDC 1 X . 4THENM$="you muldn't g*t 
a.m ay " : G0SUB800 ■ G0T05S 0 
610 L=RND«.' -RNDC 3 ) > : F = 1 : RETURN 

>'00 M$= " You have found the or i n> _ es^ " ; GfiS 
UB800 

728 M$="You are a hero"=GOSUB808 

f‘tU Ni =".and you have some tr *= asur *= " 

: GOSUB800 ' 

75m H$=8TR$(TR >+" pieces of gold" : G0SUB8 
00 END 

300 F'RINTMi = PRINT ■■ FORL=1TO1008 : NEXT = RETU 
RN 

1000 DhTA orc,20,troll,48,dwarf, 38 .dr agon 
, 60, wraith,10,kobo 1d.25,wizard,15' 

1010 DhTh g i ant, 100, centaur 80 , s 1 i my , v i r i 
Oils , ev i 1, nast y, w ier d, angr y, c lever ' 
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FIRST ONE 


This game could mean the possible destruction of your 
computer unless you trust all your friends to be gentle. 

The game is for up to NINE players, and the object is to be 
the first one to press a key and stop the game. 

A coloured square will appear on the screen, and then 
everyone musttryto befirstto react. 


Howto play 

The computer will ask "How many players are there?" 

Tell the computer, which will then ask for the player's 
names. 

Player One uses key A, player Two uses key B and so on. 

If you cheat and move early however, the computer will 
tell everyone “Guess who cheated" "It was." 

The winner will be identified and their reaction time will 
be shown. 

10 REM First one 

15 PRINTCHR.fC 11) 

16 CLEAR400 

20 INPUT "How many players are there " > N. 
30 IFN<10RN>9THEHPRINT : PRINT ; PRINT"one t 
o nine players only" : GOTO20 
40 DIMN$< N > : F0R.L= if ON • PRINT" Name of play 
er " ; L ; " : : I NPUTNf C L > : NEXT 
45 PR.INTCHR$< 11) 

58 IFRND<1 )>.995THEN280 
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t.y K$-1 NKEYf : I FK$= " "THEN50 

70 F0RL = 50TO600STEP5 = SOUNDC 1 , L > = NE>"T : 

S 1 - 1 , S=ASC<K$>-96 = IFSC 1ORS>NTHENPPI NT " Ti i F 
' f HL KEY"' : FORL=1TO2000 : NEXT ■ GDT 04 V 
90 PRINT. p RINT ; pRINT"H 5s Ever,™.. 

PRINT jUe " S who Just cheated. 11 : PRINT •• 

100 PRINT" If was .... " ;m( 9, > 

110 F0RL = 1T02000:NEXT = G0TH4R 
i'00 REM Make Block Appear 
210 POKE 13852,1=C=0 

Hi : JFK$=“ "THEN220 

—: -■ ~ H C\ K$ —9 fc. : IFS< 10RS>n T wruo-i 
240 PRINT - PRINT = PRINT ; PPINTNfc'v » 

250 PRINT:PRINT - PR | = PRIN+p P ?NT• 

PR I NT = PR I NT : PR I NT : PR I NT" h 1 ? -L 1 

count":PRINT"of :-;C reaction 

260 F0RL=1TO2000:NEXT 
270 G0T045 
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MAZE MOVER 


There is a pot of gold waiting for you at the end of the 
maze if you can squeeze through the gaps in the maze 
walls. 

You are the one in charge of the alien this time as it heads 
forthegold. 

Be warned however that the maze narrows as the game 
progresses and eventually. 


How to play 


Use keys Z and X and . and ; to move left/right and up and 
down. 


10 REM Maze mover 
15 SC=0 : GAP=120 

20 PR INTCHR$<11)sPOKE 12369,32;F0RL=13312 
TO 13351 : PGKEL.. 33 : NEXT 

30 F0RL=13352T014311 : F’QKEL, 16 ; NEXT : FQRL = 
12335T013255STEP40 : F’OKEL , 134 
40 POKEL+6.134 = POKEL + 12,134 = P0KEL+1S,134 
: POKEL+24134 : NEXT 

50 F0RL=12335T012359STEP6 : Q=40*INT< RNDC 1 
>*15+3 >=FORM=L+QT0L + Q + GhPSTEP40 
55 POKEM.. 32 : NEXT : NEXT 

60 L=12445+40*INT<RNDC1>*20>=P0KEL+1024, 
48 : POKEL,150 
70 X=2 : Y=21 : D $="i " 

100 K$=INKEY$:IFK $ <>"z" hNDK$<>" x"ANDK$<> 
"."ANDK$<>" i "THEN 120 
110 D*=K$ 

120 A=X : B=Y : IFD$=";"THENB=B-1 
125 SC=SC+1 
130 IFD$="."THENB=B+1 
140 IFD$="x"THENA=h+1 
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150 IFD$="z" thena=h-1 

171 ^?^I^^f < ®°^23THENGOTO500 

»* ;^nS <N>B l^THiN408 '* 40 

hS pn£rn K ^ K >32TH .EN500 

210 X=A : y=eT F UkEN ^ 1 u24 ■' 160 •' POKEN , 2=5 

<11 wr^J^^OToiee 

410 Pt= " wm I " rr.r, -i ^- 1 f g0 t 

'F0RL=lT0LEN<’r*-.' Ht NEXT "WAVE EARTHLING" 
420 POKE 1229 4 ; L ‘ a,,.,. 

a^ H sra a >sii?»» c *' L ' S0UND<: 

«S ic fl =2ls A c:c 4 ?Tn2 F 0 MP<0THENGftp =® 

s?i cir-s^r. 6 . 1 :^... Fnp 

*) + -/TK*<SC>'F0RL»1T0LEN<C 

530 F0RL=1 ToIb^tIp' n 1 smiIN*' L ,I>>: NEXT 

540 IFINKEvioS^THENsJ NDt 4 ' L >’ NEXT 

iff IFI NKEYt= ,.., T ™ 
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MORSE ENCODER 


If you are planning to go sailing in the near future, then 
this program will help you brush up your morse code 
before you go. 

Can you remember whatto tap for S.O.S.? 


That's all the help we are going to give you. Hope you 
don't have to use it. 

When you type a message into this program, your 
computer will play it back in morse code. A good way to 
test each message is to have someone else enter the 
message, and for you to sit down on the other side of the 
room and see if you can decode it. 


Howto play 

Just press the alphabet keys of yourchoice. 


Programming Hint 

If you feel that the play back is too slow, or too fast, you 
can change the speed by altering S=12 in line 20 of the 
program. 


10 REM Morse Encoder 
20 8=12 : D-2 

30 DIMM$(26>*F0RL=1T02S: README L >: NEXT 
40 PRINTCHR$(11> = PRI NT: PRINT : PRINT = PRINT 
"Message to transmit " 
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56 
60 
70 
HEN 
80 
90 
o m ?: 
1 00 
300 
318 
4 0 0 
41 0 
500 
518 
600 
610 
708 
710 
720 
738 
50 


INPUT" 

fqrl=itolen<I $> 

IFMI D$< I $ , L, 1 X " .-3 " ORMI D$C I $ . L , 1 > > 
GOSUB300:G0TO90 
K $= M10 $ ( 1 $, L, 1 > : G 0 S U B 7 0 8 

NEMT = PR I NT : PR I NT = PR I NTTr cinsin i s*i 
i ete " 

F0RL= 1TO2000 •• NEXT = RUN 
PEN Pause between word^ 
FORW=1TO120*0=NEXT : RETURN 
REN Short pause 
F 0 R W =1T0 3 0 1 D:NEXT = RETURN 
REM Dot 

1 2 H N 2 S ■" 10 0 : G 0 S u B 410 : R E T U R N 
REN Uash 

SOUNDCSt3,i0@> = G0SUB410 = RETURN 
REM Sound one char 
X=ASC<X$ >-96:F$ = M$fX > 
FQRM=1TQLEN<P$ > 

1 F MID $(FT,M,1> = "s"THENGOSUB500:G 


on c 


U 1 u 


748 G0SUB600 
758 NEXT:RETURN 
1000 DATAsI ■ l« s 
1010 DAThssss, ss 
1028 DhTAIs, 111,s 
1030 DAThss1, ssz 1 


11s,Iss, 
sin, isi 
11 s, 11 s 1 
,sl1,iss 




ARTIST 
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Let your creative skills run amok as you paint your 
emotions across the canvass of your screen. Well maybe 
that's going over the top a little, but at least you can 
indulge yourself a bit without getting paint all over the 
dining room floor. 

This program will allow you to change the background 
colours and the foreground. You can also stop the 
program while you consider your next broadbrush 
sweep. 

Howto play 

Use keys Z and X and. and ; to draw the pictures. 

Press B for background colour and F for foreground. 

Press W to stop movement and C to clear and start again. 


10 REM Artist 
28 PRINTCHRTC11> 

25 POKE 12369,32 

30 QT="Choose Background Colour " 
35 GOSUB200 : B=C 

4 0 Q$="Choose Foreground Colour ” 
45 GOSUB200 : F=C 
50 PRINTCHRTC11) 

54 POKE 12369.32 
57 W=B+16*F 
60 FQRL=13312TQ14311 
63 POKEL, 1*1 
67 NEXT 

70 X = 4 0 : V = 36 : F =1 
80 DT="" 

90 3=208 
100 K$=INKEYT 
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185 

I FK$ = " f 

118 

I FK$= " h 

128 

I F K $ = " r 

125 

IFK$ = " «i 

138 

IF K $<>» 

"THEN 150 

140 

d $= k $ 

158 

IFD$="z 

168 

IFD$="y 

178 

IFD$=" 

180 

IF D $ = " ; 

198 

IFF=1THF 

195 

PRESETC > 

197 

GOSUB38? 

199 

GOTO100 

288 

PRINT PFr 

285 

INPUTC 

287 

IFCOHopr 

218 

RETURN 

3 8 0 

F0RL=1 TO 

318 

SOUNDC 5 . 

320 

RETURN 


" A N D K * < > " x" A N D K $ < > " . !! A H D K $ < 


X.. Y > • G 0 S U B 3 8 8 G 0 T 018 8 


> I NT< C MHEN288 


WORM 
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You are in charge of a very hungry worm which is 
charging around the screen trying to eat numbers. It is 

strange the things that worms eat in computer games!! 

Every number you have the worm eat will gain you 
points but be careful as this worm will turn and, if it eats 
itself, you will have to start over again. 


Howto play 


Guide the worm around the screen using the keys Z and 
Xand. and ; 


18 R E M W o r m 
28 W=5 
38 DiriPC 56 > 

40 PRINTCHR$(11> ; POKE12369,32:F0RL=1331? 
1014311=POKEL,116 : NEXT 

58 F0RL = 1T0W : P( L >= 13268-48*L = POKEPC L , 15 
5 = NEXT • ' ' 

60 D$=" 

108 K $=IN KE Y $■IF K $< >"z "h N DK $ <>"x"AND K $<> 
" . “ANDK'f < >'*"THEN 120 
110 D$=K* 

120 N = P (. N >: IFD$="z"THENN=N-1 

130 IFD$="x"THENN=N+1 

140 IFD$="."THENN=N+40 

150 IFD$ = " "THENN = H-40 

160 IFN<12368THENN=N+920 

170 IF H >13 2S 7 T H E N N=N-9 2 8 

180 IFPEEK<N )=135THEN400 

182 IFPEEKCNX >32THENGOSUB580 = G0T0228 

185 T=P(1> 

190 F0RL=1T0W-1 

200 P(L >=PC L + l> : NEXT 

210 PC W >=H = POKEN, 135 : F'OKET, 32 















226 IFF=1THEN100 

230 S=12368+1NTCRNDC 1 >$320 > : I FREEKCS X >3 
2THEN230 

240 F=1:POKES,48+1 NTCRNDC1 >$3+1> : GOTO 180 
400 REM Eaten Seif 

4i0 FQRL=1 TOW=PQKEPCL >+1024,20 : SOUNDC100 
. L$ 10 > : NEXT 

415 PRINT : PRINT : PR IN T : PR I NT : PR I NT : PR. I NT : 

PRINT : PRINT" SCORE ■";SC 

420 IFINKEY$<>""THEN420 

430 IFINKEY$=""THEN430 

448 RUN 

508 U=PEEKCN >-48 = F=0 = SC=SC+18$U = W=W+1 
582 IFW=51THENW=50=RETURN 
505 PCW >=N : POKEN,135 

510 F0RL = 50T01STEP-1 : SOUNDC 1 . L > ■' NEXT 
515 IFW>30THENW=30 
520 RETURN 
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BREAKOUT 


This is almost like playing a game of squash against a 
multi-coloured wall, except every time you hit one of the 
bricksyou knocka piece out ofthe wall. 

This may seem simple to play, but the ball comes back at 
angles, so you will have to predict where the ball will 
bounce to afteryourshot hits the wall. 

It is possible as well, to break through the wall and find 
yourself bouncing around at the back before all the front 
wall has been destroyed. 


How to play 

Use key X to move left and Z to move to the right. 


10 REM Breakout 
15 SC=0 

28 PR I NTCHR$C11> = POKE 12363,32 
25 F0RL=13332T014311=POKEL.32 = NEXT 
38 F0RL=12328T012367=POKEL,132 : POKEL+182 
4,64 : NEXT 

48 F0RL =12368T013248STEP48 = POKEL,143 = PQK 
EL+1024,64 

45 F'OKEL+33, 133 •• POKEL+1863,64 = NEXT 
50 F0RL= 12563T012606STEP2 : POKEL •. 137 : POKE 
L+1824,224 : POKEL+121,137 
55 POKEL+1145.160 : POKEL-160,137■POKEL+86 
4,48 = NEXT 

57 F0RL =14273T014310:POKEL,16 = NEXT 
68 P=13260 : F0RL=PT0P+4 : POKEL,163 : NEXT 
65 D$=" " : BC = 57 

78 C=1 : D = -40:0=13213 + 2$I NTCRNDC1>$3 > 


100 REM Main Loop 
118 K$=INKEVf=IFK$=""THEN 1 15 
112 D$=K$ 
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115 IF D 4 = " 2 " ANDP >13249THENP=P-1 = POKEP + 5, 
32 = POKEP , 1'63 

120 IFD$ = 11 . "ANDPC 13282THENP = P+1 = POKEP-1, 
32:POKEP+4,163 
208 REM Move Ball 
210 N=0+C+D : S=PEEKCH> 

220 IFN=123290RN=12367THEHC=-C ; D=-D : GOTO 
210 

230 IF S =13 2 T H E N D = -D : GOTO210 

240 IFS=1430RS=133THENC=-C : GOTO210 

250 IFS = 137THEND=-D : POKEN+1024,32= SOUNDC 

3,80> = S C = S C+10 = BC = BC-1 

260 IFS=163THEND=-D : SOUNDC4,100>=G0T0210 

270 IFN>13287THEN580 

300 POKED,32 =POKEN.135 = 0=N 

310 IFBCO0THEN100 

320 GOT020 

5O0 REM Lose 

510 FORL = 58TO300STEP5 : SOUNDC1,L > : NEXT 
520 PRINTCHR4C11) = PR I NT = PR I NT = PR I NT = PRT N 
T : PRINT 

530 PRINT" You Scored " SC 
540 FORL=1 TO 100O = NEXT 

550 PR I NT:PR I NT = PPM NT = PRINT = PR I NT = PR INT" 
Piet4 Again C Y/N > 

560 K4 =INKEY4 : I FK4<>"y"ANDK4C>"n"THEN560 
570 IFK4="y"THEN 10 
580 END 


) 


TWENTY ONE 


This is one of the programs mentioned in the foreword, 
where so much of the memory has been used that there 
was no room left for the initial REM but the name of the 
game is "Twenty One". 

You will be welcomed to the Pontoon table, given several 
pieces of gold and invited to take your hand against the 
computer. Cheating will do you no good as the Aquarius 
is a machine of honour and will hold no truck for cheats. 
You will be asked to Twist, Stick or Fold according to your 
courage and the state of your purse. 

At least if you do go bust it's unlikely that Aquarius will 
come lookingfortheshirtoffyour back. 


How to play 

Press T for Twist, S to Stick and Ffor Fold if you have bust 
your hand. Aquarius will tell you when it draws, if it gets 
a pontoon or goes bust. 


10 CLEAR186 

20 RESTORE = DIMS4C4 > = F0RL=1T04 = READS4C L > = 
NEXT 

30 DIM U ■$ C 13 > = F 0 R L = 1 T 0 13 = READUfC L > = NEXT 
40 G=100=M$=CHR*C11>+"Welcome to the pon 
toon table"■GOSUB550 

50 M$ ="You are starting with "+STR$CG> : G 
OSUB550=M*="pieces of gold." 

55 GOSUB500 
65 IFINKEY4=""THEN65 

100 PRINTCHR4C 11 > : M$ = " You have "+STR4CG > 
+" pieces of gold" : GOSUB550 : G=G-3 
1 10 C = 0 = GOSUB400 : GOSUB400=IFC = 21THENM$=" 
PONTOON !!!"=GOSUB550=G0T0280 
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120 PR I NT"Twist or Stick or Fold" 

;a : f?i = i N H EY$: 1 FK$= " + " THEN1 50 

1 31 IFk$=‘ , s" THEN 160 

132 IFK*<>"t"THEN138 

r stake" ; GOSUB550 = G0TO100 1 y ° U 

ijW M$= "Here it com*-- "•rncilP^o-rno 

UB460 =IFC<22THEN128 . GO^UB550- LOb 

'ioTOl?0 V ° U 9r * bust .-•GOSUB5S0.PI.-0 

160 PL=C = GOTO 170 

400.GOSUB400 Ur ". GOSUB550.C-0 * GOSUB 

B550tGOTO100 EN "*'“ I hCIVe ° P° nt0 °n" 'GOSU 
ISO IFO15THEN190 1 

1O2 GOSUB40O : IFC>21THENM$="I w *nt bust"• 
G=G+t>: GQSUB550 : G0T0100 
i64 IFC>15THEN190 

R" g n t n i p 4 + h 1 n K * ' 11 d r '3 ».i again" ; G 0 S U B 5 5 

oluB550-GOTniIo' V,$=,!I W ° n that " :G 

«B IPM-?<THlHGOSui5!0 Se ‘ G ‘ G * 6 ‘ GOTO,0e 

1 >^T-ASC<C0>-39: TT=T-1 RIGHT *' M * LENC P * >’ 
| pt > 13THENT=T-13=GOTO420 
4^5 SC=T : IFSC>10THENSC= 10 
42r IFSC=1THENSC=11 

H ? §F C %* , ,t& T a 3> - M - Th * * + «*<T 

440 RETURN 

S0^H4=»" , P*=». : FORL-40TO91 . Pt-R* + CHR4<: L 
pl • Si«¥< E g,,£?M f 8 S^? "" : F0RL=iT 

R«H?jr?£:ns<%s?4', , ^ p - LEFT * <p *' 8 - 1 > + 

525 NEXT=P$=H$:RETURN 

N jW PRINT : PRIN ™$ F0RL = 1TOS00 : NEXT RETUR 

1 titfO OATACLUBS, DIAMONDS, HEARTS , SPADES Af 
“t; i -~A : HPEE -’ FOUR, FIUE , SIX , SEMEN 
10 1 0 DhJ AEIGHT,NINE,TEN,JACK,QUEEN,KING 


\ 


DOUBLE SURROUND 
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vouwMih 93 ^ 6 VOU C3n ° nly play with a close friend as 
you will have to sit in each others lap to play. 

o ddo nen't®h*fn t3rget ° f trying to around his 

opponent before being surrounded himself. Sounds 

wi?h V so 0 m Sn 1 JUSt W3it Until YOU try to pla V complete 

when^ufina^lycoM^de. CraShin9 md CrU " chi " g «*■. 

Oh, by the way, if you happen to crash into your own trail 
it w.11 mean goodbye for you so keep on your toes and off 
your opponents trail - and your own. 


Howto play 

Player One uses Q and A and Z and X 
Player Two uses. and, and; and / 

* 0 —EM Double Surround 
15 C=3 : D=3 = POKE 12290,51 = PGKEr? 3 '?Fi mi 
20 PRINTCHR$C 11 > : PQKE123SS SsTpnpj'’- 1 - 7 - 7 ^ 
1014311=POKED.160:NEXT P0R L-1335,, 

3W F0RL=13312T013351' = P0KEL,2 = NEXT 
40 h= 12818 : B=12838 : C$="x" : D$=" " 

50 POKE 12290,C+48•POKE 1 2325 D + 4 ° 

60 P0KEB+1024,16 '° 48 

90 X=A : Y=B 

1 00 K$= INKE Y$ : IFK$< > 11 q" ANDK $< '> " « " AND V i ■" '> 
z"ANDK$< >"x"THEN 120 01 HdDr.$w 

110 C$=K$ 

120 IFC$=" 2 "THENX=A -1 

121 IFC$="x"THENX=A +1 

122 IFC$="q"THENX=A-40 

123 IFC$="a"THENX=A+40 
126 IFX<12328THENX=X+960 
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1 >'? IFK> 13287THENX=X-968 

128 IFPEEKCX)<>32THEN6@0 

129 PQKEA,135 = A=X•POKEA,150 

130 IFK$<>"."ANDK$<>","ANDK$<>";"ANDK$<> 
"•'"THEN 150 

140 D$=K$ 

150 IFD$=“."THENY=B+1 

151 IFDf=" "THEHY=B-1 

152 IFD$=";"THENr=8+40 

153 IFD$="/"THENY=8-40 

156 IFY<12328THENY=Y + 860 

157 IFY >13287THEHY=Y-960 
15 ? IFPEEK<: Y K >32THEN560 

15+ PuREB,135 8=Y : PQKEB+1024,16 : POKES,15 

168 80UND<1,40 >:G0T098 
50© REM Player one crashed 
51@ C = C-1=GOSUB708 : IFC=0THEN90R 
520 GOT020 

600 REM Player two crashed 
610 D=D-1=GOSUB706=IFD=0THEN8RR 
620 GOTO20 

700 REM Crashed noise 

710 W=INT<RNDC1 >*15+1> = POKE13312 W^POKEl 
3351 , W ‘ 

715 FORW=1T05 

720 FORL= 1TO500STEP30 •• SOUNDS 4 , L > • NEXT 

725 NEXT 

730 RETURN 

900 REM End of name 

910 PR I NTCHR$( 11 >: POKE 13312., 10: POKE 13351 
.. 1 0 

?»one R ! NT goto 9 ,«, PLflYER "' !I ^henprin 

940 PR I NT" TWO " 

950 PRINT"WINS" 

960 PRINT:PRINT = PRINT : PRINT" 

<SPACE>" 

970 IFINKEY$<>" "THEN970 
980 RUN 


SCREEN ROUTINES 
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The following two programs are for your use, if you have 
found out that there are areas of your computer which 
are "protected" and generally unavailableto you. 

The title program, although looking very short, is a very 
helpful routine, as you can print up to 39 characters on 
the area above the normal screen. An example of this can 
be seen in the "Heart Catcher" program in this book. 

The other program. Screen Print, will allowyou to 'dump' 
the picture you have on your television screen listing 
onto the Aquarius printer. This, again, is a very useful 
routine, as normally the Aquarius does not allow 'text' to 
be dumped onto it's printer. All of the programs in this 
book were produced using this routine. 

10 REM Title 

20 I HF’UT "TITLE"; T$ 

30 IFLEN<T $ >=0ORLEN<T$)>39THEN20 
40 S= INT< C 40-LENf T$ j >,'2 '< 

50 FQRL = 1TGLEN< T$ > 

60 POKE 12287+L + S.ASC<MID$fT$.L,1>> 

70 NEXT 
80 END 


10 REM Screen Print Routine 

20 F O R L =12 3 2 8 T 013 2 4 8 S T E P4 0 

36 F0RM = 0T039 

40 LPRINTCHR$< REEKY L + M > 1 

58 NEXT 

68 LPRINT 

78 NEXT 




58 


QUIZ MASTER 


You can set the questions and your Aquarius will ask 
your friends for their answers. What could be simpler 
than that. This is a good teaching aid, if you enter the 
correct information. 

The Aquarius will ask a multiple answer question and the 
players will be asked to choose. Each correct answer will 
result in a 10 point bonus and each wrong answer a small 
penalty. 


Howto play 

Press the key marked A,B,C,D for your answer. 


Programming Hints 

If you want to change the data you will need to know the 
lines to alter and these are as follows: 

Line 1010 indicates DATA which is the correct answer to 
each question. Remember to change this DATA or you 
will look rathersilly. 

18 REM Quiz Master 

28 FRINTCHR$<11> = PRINT = PR I NT"AQUARIUS QU 
IZ MASTER" : PRINT 
30 SC=0 
35 DIM A $ < 4 > 

4 0 P RIN T"You score 18 poin t s fo r e a c h" ; P 
RI NT"cor reef answer" : PR I NT"and will 1 ose 
a" 

58 PR I NT"small pena11 y when you"=PR INT"q 
ive a wrong answer" 


55 IFINKEYf=""THEN55 
68 RESTORE 

78 READN : REM No. of questions 
80 READijT : REM str i ng o f correct so 1 ut ion 

98 F0RQ=1T0N 

180 READQ$ : F0RL=1T04 : READA$( L > = NEXT 
118 PR INTCHR*<11):PR 1 NT:PR INTQf:PR I NT : PR 
I NT:PRINT 

128 F0RL = 1T04 = PRINT = PRINTf:HR$<' L + F.4 j ; 11 

";Ai(L > 

130 NEXT : PRI NT : PRINT : PR I NT : PRI NT 
148 PRINT" ?".; 

158 K$=INKEY$ : I FK$<>"a"ANDK$<>"b"ANDK$t> 
"c"A N D K$<>"d"THEN 158 

168 IFK$=MID$( C$, Q, 1 >THENG0SUB488 : GOTO 1P, 
0 

178 GOSUB508 

188 F0RL=1 TO 1808:NEXT:NEXT 
288 PR INTCHRf(11):PRJ NT:PR I NT=PR I NT"Your 
Total Score is ;SC 

210 PRINT 1 PRINT : PRINT"0ut of maximum pos 

sib1e":PR I NT"score of ";N*18 

228 IFINKEY$<>""THEN228 

238 IFINKEY$=""THEN238 

248 RUN 

488 REM Correct answer 

418 SC = SC+18 : PR I NT = PR I NT = PR I NT"Cnr r ert" 
428 RETURN 

588 REM Incorrect answer 
518 SC = SC-3 = PR I NT : PR. I NT : PRI NT " wr ong . . . . N 
ever mind" 

520 RETURN 
1088 DATA5 
1018 DATAcaadd 

1020 DATAHow many letters are there in t 

he alphabet 

1825 DATA24,25., 26,29 

1830 DATAWhat is the AQUARIUS 

1035 DATAa computer,a star sign,a type o 

f b uc k e t,a seven letter wor d 

1840 DATAHow many television channels ar 

e there in ENGLAND 

1045 DATA4,3,2,none 

1850 DATAHow many colours does the AQUAR 
I US have 
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1655 DATA 12,8,4,16 

I860 DATAWhat is choux 

1065 DATAA type of shot putting,a 

man^ct frightening gunshot 

1867 DATAA type of pastry 


sma 11 


WORD TEST 
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This is a combination of a reaction, spelling and typinq 
skills test. a 

Your computer will put a word on the screen and you will 
be asked to type in the exact copy of the word before it 
reaches the bottom of the screen and disintegrates. 


How to play 

Type in the word as quickly as possible - correctly. 


Programming Hints 


All of the words in lines 1000 and 1010 can be changed, 
and further lines may be added if the word power of your 
family is greater or lesser than the simple examples 
given here. 


This is a very good teaching aid for children to help them 
become better at spelling and make them more 
accustomed to using a computer keyboard. 


10 REM 14or cl Test - 
15 SC=0 : T=0 

RESTORE : F0RL=1TQI NT( RND< 1 >*10+1 > = READ 
14$: NEXT 

100 F'RINTC'HR$<: 11): POKE 12369. 39 : F0RL = 13‘ ? 1 
£T 013351:P0KEL,4 = NEXT 
120 Q= 12423 = S$=“ ,! 

130 W=LEN< 14$ > 

148 F=0 

200 FORL=1TO50:NEXT 

205 F0RL = 1T0W P0KEQ-48 + L . 32 
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210 GOSUB500 = NEXT 

228 FORL=1T0W : POKEQ+L., ASCC MID$C W$ ! 1'.'. 

230 GO3UB500 ■ NEXT ‘ " ' 

235 IFF=1THEN400 
24y Q=Q+40:IFQ<13248THEN200 

SWSE! >*i^‘^T PWE “ ;L ' 285 — 1 

DU >we >**hext P0KE0+l ' 208 ‘ S0UND( 1 ' INT < RN 

»6e P 2;>>?rexT KEe+L ' 32 ' 80UND<1 ' INT<RND 
280 T=T + 1 : IFK5THEN20 

29 ? cr I « T c .^ INT:PRINT:PR IMT : PRIWT“ SCOPE 
SC ; FROM T" TURNS" 

300 IFINKEY$< >""THEH300’ 

310 IFINKEY$=""THEN300" 

320 RUN 

400 SC = SC+10:PR I NT:PR I NT = PR INT:PR I NT = PR I 
NT" CORRECT":FORL*1TO200STEPF 
410 SOUNDC1,L > = NEXT•GOTO280 
5W0 K$=INKEY$ : IFKt=" "THENRETURN 

Ip S$=l4$THENF=l : POKE 1 2372+LE 
N' : -•$ , ASCC RIGHT $( S$, 1 > >: RETURN 

pt®. *fs$=left$c w$, lenc s $ > >thenpoke i ?3??+ 

LEN< S$ ASCC RIGHT$C S$ , l ) ) : RETURN ' 

53d F0RLL = 12372T012407 = POKELL,32:NEXT -i 
= " " = RETURN 

1000 DhTA sk y,he 11o,bir d,computer,jelly 
1 - 1 - ! HW °r d, qui ck, r andom, book, co 1 our 


CAROL 


Well, Christmas is always coming and you can program 
your computer to play your favourite carols for the 
family. 

The carol we have put in here for your listening pleasure 
is Once is Royal David's City”, but you can list your own 
choice. 


Howto play 

Just type in the listing press RUN and sit back. 


Programming hints 

You can change the speed of the output by altering line 
25. Change the data from line 200 onwards to change the 
tune. Ensure, if you change the tune, that you change line 
150 which contains the total of the notes to be played. 

10 REM Coro1 
28 PR INTCHR$C11) 

25 INPUT" Speed Cl is fast >" S 
30 PR I NT:PRI NT : PR I NT = PR I NT:PR I NT"ONCE IN 
ROYAL DAUID'S CITY" 

35 DIMWC 4 > = W< 1 > = 30 = W< 2 >=60 : Wf 3 > = 9A • wc 4 :.= 
120 

40 RESTORE 

50 READN 

60 F0RL=1T0N 

70 READP,D 

30 SO UN DC WC D >*S . p > 

30 NEXT 
100 RUN 
150 DATA54 
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280 DATA 189,2,150,2,140,3,148.1 ,140,1,15 
0, 1,148, 1 , 126, 1,126,2, 1 48,2,140', 2 
21 &■ DAT A1 1 0,2,92,3,1 10,1.110,1,126,1,140 
, 1,150,1,140,4 

220 DATAi89,2, 150,2,140,3,140,1,140,1. 15 
0^1,148,1,126,1,126,2,140,2,148'2 
£30 DATA 1182.,92,3,1 10,1,110,1,126,1.140 
, 1, 150,1,148,4 

248 DATA83,2,83,2,92,3,140,1,104.2,104,2 

,118,4,83,2,83,2,92,3,110,1 

258 DAT A110, 1 , 126, l', 140, 1 ’, 150, 1, 148,4 


65 


ENCODER/DECODER 


So you want to be a spymaster and join Smiley's people? 
Or maybe you are just fed up with everyone in the family 
reading your diary when you could be hiding it in code. 

This program will allow you to insert your own code 
word and have it processed by the computer which will 
then code all your information. 

Onlyyou will knowthe code word!! 


Howto play 


Type in your code word using the alpha keys. 


Remember, the longer the word the more complicated 
the code will be. 


10 REM Encoder / Decoder 

11 CLEAR200 

20 PR INTCHR$<11):pr iNT = PR I NT = PR I NT = PR I NT 
"1> ENCODE":PR I NT = PR I NT"2 > DECODE"=PR I 
NT:PRI NT:PRI NT : PR I NT"Your Choice"; 

30 K$=INKEY$ ; IFK$<"1"ORK* >"2"THEN38 

35 PRINT 

40 IF K $ = " 2" T H E N 4 8 8 
50 INPUT"CODEWORD "jW$ 

60 W=LEN<W$>:IFW=0THEN50 • 

70 INPUT"SENTANCE TO ENCODE ";S$ 

80 S=LEN<S$) 

82 T$="" : F0RL=1TQS 

84 B $ = MID $ < 8 $ ,L,1 ):IFB$>CHR$<96 >ANDB$< CH 
R$(123 >THENT$=T$+B$ 

36 NEXT = S$=T$:S=LEN< 8$> 

90 C = 0 : E$ ="" 

95 F0R.L= 1TQW 
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1 00 c = c +1 : E=hSCC MI D$( S$ , c , 1 '< j + Hfii 

$, L, 1>>-128 

118 IFE>98THENE=E-26 

120 E$ = E$ + CHR$( E > : IFC = STHEN28@ 

138 NEXT:GQTH95 

288 PRINTED 

210 IFI NKEY$< > 11 "THEH210 
220 I FINKEY$=“"THEN228 
238 RIJN 

480 INPIJT"CODEWORD " W$ 

418 W=LEH<: W$ >: IFW=0THEN408 

420 I NPUT " SENThNCE TO DECODE " Si 

430 S=LENCS$> =IFS=8THEN420 

440 T$="":F0RL=1T08 

450 !■$ = “'< ■■ FORL= 1TOS : T$ = T$+CHR$s' h c 

Sf,L,1 ) >-32) = NEXT 

460 S$ = T$ : C=0:£$="” 

465 FQRL=1 TOW 

478 C = C+1 • E = hSC< MID$( S$,C, 1 > >-AP.f 
$ , L... 1 > > + 96 ' 

4 f 5 IF E < 6 5 T H E N E = E + 2 6 
488 E$=E$+CHR$<E >•IFC = PTHEN588 
438 NEXT : G0T0465 
580 PRINTEf 

518 IFINKEY$<>""THEN518 
528 IFINKEYf=""THEN520 
530 RUN 


f1ID$< W 

< MID $ ( 

MID$< W 


ACCOUNT BALANCER 
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As we said at the beginning of this book, if you want to 
know whether or not you can afford to buy your printer, 
invest in a new cassette game, or just eat next week then 
here is the answer. You know you always forget the 
cheque you signed the other day, don't you? 

This will control your payments in — only you can control 
your payments out. 

The nasty thing about this program is that if you go into 
the red, so does the screen. Don't play about with this 
one if you are ashamed of your cash flow situation. 


How to play 


Your computer will ask you for the opening statements, 
payments in and payments out. 


18 REM Account Balancer 
15 REM With Overdrawn Warninq 
28 PR INTCHR$(11> 

22 PRINT:PRINT:PRINT:PRINT 
24 INPUT"Previous Balance ";B 
38 GOSUB100 

48 INPUT"Payment in <8=exit> ";P 
58 B=B+P 
55 IFPO0THEN38 
68 GOSUB180 

78 INPUT "Check out ( 8=e x i t ) "n 
80 B=B-C 
85 IFCO0THEN68 
38 PRINTCHR$<11> 

32 PRINT•PRINT : PRINT : PRINT : PRINT : PR INT : P 
RINT 

33 PRINT" Balance is now ";B 
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94 IFEK 0THENGOSUB200 

95 PRINT:PRINT = PRINT:PRINT 

96 PRINT" <SPACE>" 

97 IFINKEY$< >" "THEN97 

99 PRINTCHR$<11>:END 

100 PR I NTCHR$< 1 1 ) • PR I NT = PR I NT = PR I NT " Riil 6 

NCE =";B . 

165 IF B <0T H E N G0 SUB200 

110 PRINT = PRINT = PRINT:RETURN 

200 POKE 13312,1:POKE 13351.1=RETURN 
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SAFECRACKER 


Along with some other programs in this book, we have 
used up all the available memory and have not been able 
to afford the use of a REM (Remark) statement but you 
will see we sneaked the title in on line 80. 

Your Aquarius has been pre-programmed with a 
combination number which you must crack in as few 
moves as possible. 


How to play 

The code you have to crack is a 4 digit one, the numbers 
are between 1 and 8 inclusive. 

Key in your estimate of the numbers and the Aquarius 
will respond asfollows: 

If your number is correct and in the right place it will 
show up in WHITE. 

If your number is correct but in the wrong place it will 
show up in BLACK. 

If your number is neither correct nor in the correct place 
the screen will show up a 0. 

Alongside your guesses will appear a running total of 
your attempts. We hope that you crack the number 
before you crack the Aquarius. 

5 S=0 

10 PRINTCHR$C11> = POKE 12369,32 
20 DI MAC 4 >, A K 4 ), G< 4 > 
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30 FQRB=1T04 
40 C=INT<RND<1)#8)+l 
50 F=0;F0RD=1T0B 
60 I FAC D > = CTHENF=1 
70 NEXT:IFF=1THEN40 
75 A< B >=C : NEXT 

80 M$=" *** SAFECRACKER ***" 

«5 G0SUB1000:PRINT:PRINT 
110 INPUT"ENTER GUESS ";A$ 

11= " ’T.'-J i t "THEN500 

1 cU I FLEN(. A$ K MTHENSOUNDC 50,200 '<: GOTH 11 

125 FF=9 

130 FORE=1T04 

140 F=UALC MID$< A$,E,1> > 

150 IFF<10RF>8THENFF=i 
160 GCE>=F:NEXT 

165 IFFF = 1THENSOUNDC 50,200 ) = GOTm10 
170 S=S+1 ‘ ' ' ' 

210 B1=0=W1=0:FGRH=1T04 
230 I FAC H >=GCH JTHENB1=81 + 1 
240 NEXT 

250 F0RL=1T04 : A1<L )=AfL > : NEXT 

260 F0RJ=1T04 

270 I FA 1C J )=-lTHEN312 

280 FORK =1T04 

308 I FA 1C J >=GC K >THENW 1=W1 + 1 = Alt' J > = -l 
310 NEXT 1 

312 NEXT : W2=W1-B1 
315 IFB1=4THEN350 

|y RINT " * ">Bli" * " W2; " * " S; " GUE 
330 GOTO 110 

J : PR1NT : p R 1 NT : PRINT 1 FOP.! 
PR1 ^ ; : NEXT = PRINT : PR I NT 
-■55 PRINT "Correct D e d u c t i o n" : PRINT:PRT w t 
36@ PRI NT"That took ";S;" GUESSES" 

n$=" Press ann keq to RESTART" 

375 GOSUB1000 ' 

380 IFINKEV$< >""THEN380 
390 IFINKEV$=""THEN390" 

400 RIJN 

500 PR INTCHR$C11> = PRINT = PRINT:PRINT:PR IN 
510 PR I NT"The Code was = 


520 F0RB = 1T04 : PRINTAC B >; " " ; = NEXT 
530 PRINT : PRINT 
540 GOTO370 
1000 FQRL=1T03S 

1010 IFL>LENC >THENPOKEL+ 12288,7 
030 

1020 POKEL + 12288 , ASCC MID$f M$ . j_ • 1 '< 

1030 NEXT 
1040 RETURN 
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DICE 


They say that life can sometimes depend on the roll of a 
dice. Well this isn't that dramatic, we hope. This game is 
set for two players with the computer in the middle to 
make sure that no-one cheats. 


Howto play 

You will be asked to enter your names. 

Each player, in turn, will then be shown five dice which 
will be'thrown' by the computer. 

The objective can be decided, by the players, in advance 
but normally it is most common to regard 5 x 6 as being 
the winning hand. 

After the initial throw the first player will be asked which, 
or how many, of the dice they wish to throw again. When 
they have indicated by entering the numberand pressing 
RETURN, the second player's dice will be displayed. 
When they have made their selection the computer will 
'throw' again and move to the next hand. 

The computer will not throw for the individual player. 
Both moves must be entered before any throw is made. 
We told you that the Aquarius was there to stop cheating 
and advantage being taken by the second player. 

10 REM *** DICE *** 

15 CLEAR200 
20 D I MDC 5 , 2 > 

25 D I MSC 2 > 

30 SC. 1 >=0 : SC 2 >=0 : INPUT"Name of player on 


e " ; NSC 1 > 

40 INPUT"Name of plaqer two 11 NSC 2 > 

50 IFNSC1>=NSC2 >THENPRI NT"You ' 11 need to 
use different names" ; GOTO30 
100 F0RP=1TD2 

110 F0RL=1TQ5 = DC L., P >=INTC RNDC 1 >*6>+l = NEX 
T 

115 PR INTCHRSC11PRINT = PRINT = PRINT = PR IN 
T 

120 MS=NSC P >+"'s go" : GOSUB1000 
130 PRINT"Die No.' SCORE" 

135 PR I NT:FORL=1T05 = PR INTL.DC L.P > = NEXT 
140 PRINT : PRINT"Give dice to Reroll 
150 INPlJTR$:IFLENCRS >>5THEN150 
160 IFR$=""THEN400 

170 F=0:F0RL=1T0LENCRS> = QCL >=UALCMIDSCRS 
,L,1 )> : IFQCL X10RQCL >>6THENF=1 
180 NEXT = IFF=1THENSOUNDC200.200 >:PR I NT"B 
AD DICE" : GOTO 140 
190 F0RL=1T0LENC RS > 

200 DC QCL >, P >=I NTCRNDC1 >46>+1 
210 NEXT 

400 MS="End of "+NSCP>+"'s go"=GOSUB1000 
410 FORL=1TO400 NEXT 
420 NEXT 

500 FORP=1T02 = F0RL=1T06=UC L > = 0 = NEXT 

510 F0RL=1T05 = UC DC L,P> >=UC DC L,P >>+l:NEXT 

520 T1=0 : T2=0 : FORL=1TO6 

530 IFUC L >=2THENT1=T1 + 1 

540 IFUC L >=3THENT2=T2+1 

558 IFUC L >> 1THENSC P > = SC P >+UC-L > 

560 NEXT 

570 IFT1=2THENSC P >=SC P )+2 

580 IFT1 = 1ANDT2=1THENSC P >=BCP > + 5 

590 NEXT 

600 PRINTCHRSC11> 

610 M$="The Scores now stand at " : G0SUB1 
000 

612 FORP=IT02 : PRINT : PRINTN$CP >;" ' s dice 

. II . 

* t 

614 F0RL = 1T05 : PRINTDC L.P );" ";:NEXT^PRIN 
T •• NEXT 

620 PRINT:PRINT = PRINT = PRINTN$C1>; " 

SC 1 > 

630 PRINT : PRINTNfC2 )/" = ";SC 2 > 


11 . 
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lit ppi^,:L R ^I' PRIH l ' PRINT : PRINT : print 

*1® IFINKEY$=""THEN670 
6 b' 0 G 0 T 0 1 0 0 

1000 FORL= 12288T012327 = PflkTl 7? . WC vt 
1018 FORL=1T0LEN< M*i = POKEl^oo+i N f£j, MTn 
$(. m , L , 1 > > : NEXT ‘ tiu ' J+L 1 hSC< MID 

1020 RETURN 
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CURRENCY CONVERTER 


If you have decided that you are going to France, 
America, Spain, Greece, Italy, Sweden or anywhere else 
this is what you will need before you leave. 

By using this program and inputting the current currency 
rate, you will be able to see how much, or how little, you 
have to spend on wine, women and duty free perfume. 


How to play 

Your Aquarius will ask you for the current rate of 
exchange, which is usually printed in your daily 

newspaper, and then whether you wish to convert to or 
from. 

You will then be asked the amount you wish to convert 
and, Hey Presto the answer will appear. 

We hope you can afford that extra bottle of beer. 


18 REM CurrencH Converter 
20 PRINTCHR$<11 ) 

30 PRINT■PRINT : PR I NT:PR I NT : PRINT 

40 INPUT"Rate of exchange - 

- from Sterling ";R 

50 PR INTCHRf(11> = PRINT : PRINT : PRINT : PRINT 
60 PR I NT"1) From Sterling" 
i' 0 P RIN T 11 2 ) To Sterling" 
i5 P RIN T"3 ) N e w E x change Rate" 

80 PRINT : PRINT : PRINT : PR I NT = PR 1 NT = PR I NT 
90 F'R I NT 11 Choose Option " 

100 K$=INKEY$:IFK$<"1"ORKT>"3"THEN 100 
110 IFK$="3"THEN20 
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120 IFK$="2"THEN300 

280 PR IN T C H R $ < 11 ;< = PR INI PR INI • PRINT : PRIN 

J 

210 INPUT "Amount of Sterling " S 
220 PR I NT : PRINT : PRINT"Convers i on gives " 
S t R 


2 3 0 

GOT0500 


300 

PR I NTCHR$<: 11): pr 

I NT = PRINT:P RI NT : P RI 

310 

INPUT"Amount to 

change to Sterling" 

A 

320 

PRINT = PRINT = PR IN 

T"Conversion gives 

; A/F 

Sterling" 


3 3 0 

GOTO500 


500 

IFINKEY$<>""THEN 

500 

510 

I F INKEY$=""THEN510 

520 

GOT050 
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SNAKER 


You are in charge of a very fast growing snake which is 
charging around your television screen, getting longer 
and longer second by second. 

Your objective is to stay alive as long as you can, before 
your own body becomes too long and you run over 
yourself and self destruct. 

If you run off the edge of the screen, you will just pop up 
on the other side and keep going, so don't try to gain any 
time by taking thisway out. 


How to play 


Guide yourself around the screen using the Z, X,. and ; 
keys to move. 


100 REM Snctker 
102 H=0 

105 PR INTCHR$< 11) 

107 POKE12359.32 

110 FORL=13352TO14272STEP40 

115 C=16*INT<RND<1>*6+1> 

120 FORM=0TQ39 
123 POKEL+M,C 
126 NEXT : NEXT 
130 X=40 : Y=20 
135 D$="." 

140 REM Main Loop 
150 PSET(X.Y) 

160 K$=INKEY$ 

162 IFK$=""THEN 170 

165 IFK$< > " x " ANDK $ < > " z" ANDK $ < > " . " ANDK$<. > 
";"THEN 170 
167 D$=K$ 






r~ r - co CT'i o h cm ro ■m - vt 't 10 in iru to m in md r~ co ch 

T - 1 »-• CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM CM 
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IFD$="x"THENX=X+l 
IFD$="."THENY=Y+1 
IFD$="z"THENX=X-l 
IFD$=";"THENY=Y-1 
IFX=-1THENX=79 
IFX*80THENX=0 
IFY=-1THEHY=71 
IFY=72THENY=0 
S=S+1 

SOUHDC1,40 + 1NT<RNDC1 )*10>> 
IFPOINTCX,Y >=0THEN150 
FORL=300T O 5 0 0p T E P 3 
SOUHDC1.L ) 

NEXT 

PRINT" Y O U S cnfp ci " ; P 

IFSCHTHEN260 

H=S•PRINT:PRINT:PRINT 

PRINT" You have the high score 

FORL=300TO1STEP-6 : SOUHDCi,L > : N 

F 0 R L = 1T 0 3 0 0 S T E P 4 : S 0 U N D < ' 1 , L : N E 

IFINKEY$<>""THEN260 

IF INKEY$=""THEH270 

S=0 

GOTO105 






c rn 


0X0 
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No it's got nothing to do with cooking, it's just our way of 
telling you that you are about to play noughts and 
crosses against a computer. 


Howto play 

The squares will be shown on the screen and will be 
designated asfollows: 

12 3 Top Line 
4 5 6 Second Line 
7 8 9 Third Line 

You will have the choice of first move, but you must 
always play with 0 as your marker. We hope that this isn't 
significant. The first complete line will endthegame. 

A wrong nomination, in a square already occupied, will 
not mean that you loseyourturn. 


20 

60 

T 


PRINT CHR$C11> = DI NBC 2,2 >,RC 2 >,CC 2 > 

FORX = 0TO2 : FORY=0T02 : BCX,Y >=0•NEXT = HEX 


70 T = 0 : GOSUB3000 

100 K$ =INKEY$=IFK$ =""THEN 100 

110 K=UALC K$) : IFK<10RK>9THENS0UNDC5ft ?0g 

> = GOTO 100 ‘ 

120 KY=INTCC K-1>/3> = KX=K-3*KY-1 
130 IFBC KX, KY >< >0THENSOUNDC 50,200 '/ ■ GOT01 
00 ’ 

140 BC KX,KY>=1=GOSUB2000 = GOSUB3000:j f r(g 
>=30RCC1)=30RCC2>=3THEN6000 
150 IFRC 0 >=30RRC 1 > = 30RRC 2 >=30RD i = 3nR0'? = T 
THEN6000 ' *" ‘ 

190 T=T+1=IFT=5THEN5000 
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200 GOSUB2000 
210 X=0 : Y=-1 
220 IFC<X>=-2THEN500 
225 IFCC X >=2THEH600 
230 X=X+1 = I FX< 3THEN220 
240 Y=0:X=-l 
250 IFRCY >=-2THEN500 
260 IFRCY>=2THEN600 
270 Y=Y+1:IFY<3THEN250 
260 IFD1=-2ORD2=-2THEN700 
290 IFD1=20RD2=2THEN800 
If? 1 1 > = 0THENBC 1, 1 >=-i : GOTO900 
J;00 ^ X-1HTC RHDC 1 >*3 > = Y= I NIC RNDC 1 >*3 > .• 7 F B c 
•* T '‘-0 i HENBC XY >=-l : GOTO900 
310 GOTO300 
500 F=-l 

505 IFX=-1THEN550 

510 FORY=0TO2 : IFBC X,Y><>FTHENBCX,Yi = -l 
520 NEXT : GOT0900 1 

??? FORX=0TO2 = IFBC X,Y ><>FTHENBCX,Y )=-1 
5b 0 NEXT = GOTO900 
600 F=1:GOTO505 
700 IFD2=-2THEN750 

710 FORL = 0T02 : IFBC L, L >< >-1 THENBC L • L '< = -1 
.-20 NEXT : GOTQ900 ' ' 

758 FORL = 0TO2= IFBC L,2-LK >-1THENBC L,2-L > 

760 NEXT : GOT0900 
800 IFD2=2THEN850 

01 0 FORL=0TO2 = IFBC L, L X >1 THENBC L , L. j=-i 
820 NEXT:GOTO900 ' ' 1 

350 FORL=0TO2=IFBC L,2-L >< >1THENBC L,2-L >= 
860 NEXT 

900 GOSUB3000;GOSUB2000 
2^=-3THEN4000 Di "~ y " , = ~' ,0RR ' 1 ! "" 30RR( 

111 M?l?|r 3 ° RCC 1 > ** 30RC< 2 >-3THEN40 8e 

2000 REM Computer Row,Column and Diaqona 
1 totals - " 

2005 FORL = 0TO2:CC L )=0:RC L >=8:NEXT 
2010 FORX=0TO2 : FORY=0TO2 
2020 CC X )=CC X >+BCX,Y > 

2030 RC Y >=RC Y >+BC X , Y > 
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2840 NEXT : NEXT : D1=0.02=0 
2050 FORX=0TO2 

2060 D1 =D 1+BC X, X > : D2=D2+BC X ?-y 
2070 NEXT:RETURN ' 

I®?® REH Dis P lc *y Board 
£010 N=1:F0RY=0T02 : F0RX=8T0? 

^020 IFBC X,Y)=0 T H E N P0KE12628+120*V+3*X,N 

llf?0"> B<X ' V>=1THENP0KE12S28tl2 ®* Y+ 3*X,fl 

IIe<«x*> <X ' Y> *' UHENP 0 KE 12628 + 12 MV+ 3 «. 

3050 N=N + 1 : NEXT = NEXT = RETiiRN 
400« PRINT"I WIN"=GOTO6010 
-.000 PRINT"h DRAW" GOTO6010 
0000 PR I NT"YOU WIN" 

6010 IFINKEY$<>""THEN6010 
£020 IFINKEY$=""THEN6020 
bU30 RUN 
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DAY-FINDER 


Have you ever wondered if your old dad was 'Fair of 
Face', 'Full of Grace', 'Full of Woe', had 'Far to Go' or, 
hopefully, was'Full of Loving and Giving'? 

Now is your chance to find out. 

If you ask any member of your family, or your friends, 
when they were born you will be able to tell them, using 
this program, the actual day of the week when the great 
event happened. 

By the way this is only effective as far back as 1st 
January, 1753 which was when the calendar changed to 
it's present form. Of course, you knew that didn't you. 

Oh, by the way, we have taken account of leap years just 
in case you thoughtyou could catch us out. 


How to play 

Enter in the year, then the month, then the date. 
Remember to put a 0 before the month if it's a single 
number. Also do the same with the day of the month. 

10 DIMM$< 12 ), D$< 7 ) 

30 FQRZ=1 TO 12 : README Z >:NEXT = F0PZ=1T07 = R 
EADD$<Z >:NEXT 

100 PR I NTCHR$( 11 ) : PRINT : PRINT : PR I NT" This 
program can be used to find the" 

iiti PRINT "day of the week on which any k 
nown" - 

120 PR I NT"date falls. " : PRINT;PRINT 

IN I" The yec,r in question must be": 
PRINT"at ter 1752" 
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140 PRINT:PRINT:PRINT:PRINT = PRINT 
150 PR I NT"Enter Year C1753-) "; 

160 INPUTY:IFY<1753THENS0UNDC50,200 > = GOT 
0150 

1 1 -y PRINT"Enter Month in year C 1 — 12 > "; 

180 INPUTM IFM>120RMC1THENSOUNDC,200>: 
GOTO170 

190 PR I NT"Enter Day in Month "; 

200 INPUTD1 

210 IFD1< 10RD1>31THENSOUND<50., 200 >=G0T01 
220 GOSUB300 

825 IFD1 >NTHENPR I NT " No Such Dat<= "-SOUND 
(20,200 >:GOTO270 

230 A=A+D1 : D=A-INT(A/7)*7=IFD=8THEND=7 
240 PRINT:PRINT:PRINT = PRINT:PRINT 
250 PR I NT" " ; D1 ; " : " ; M$< M ); " = " ; Y 

268 PRINT : PRINT" fal Is on a ";D$('D> 

270 IFINKEY$<>""THEN270 
280 IFINKEY$=""THEN280 
290 RUN 

300 A=0 A=Y+1 +31 *i. M- 1 >+1 NT( < Y-1 >/4 >-1NTC 
3tI NT< < Y+99 )/100 >/4> 

310 IFMO2THEN320 

315 A=Y+1+31*<M-l>-INT<(4*M + 23 )/10) + INT< 
Y/4 >-1 NT<3t<INT(Y/100 > +1 >/4 > 

320 A=A-INT<A/7 >*7 
330 IFh=0THENA=7 
340 A=h-1 : IFM=2THEN380 
350 N=31 

360 IFM=40RM = 60RM=90RM=11THENN=30 
370 GOTO400 
380 N=28 

385 IFY-INT<Y/4 >*4=0AHDY-INT(Y/100>#100< 

> 00 R Y-1N T <Y/400>^400 = 0THENN=29 
4©0 RETURN 

1000 DATAJANUARY,FEBRUARY, MARCH .APRIL, MA 
Y,JUNE,JULY,AUGUST, SEPTEMBER 
1010 DATAOCTOBER, NOUEMBER,DECEMBER 
1020 DATASUNDAY ; MONDAY, TUESDAY,WEDNESDAY 
..THURSDAY, FRIDAY, SATURDAY 
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ALPHA-SORT 


What a little boon this program is going to be for 
everyone with a collection, whether it be records, 
stamps, recipes, books or even computer programs. 

This program will allow you to input fifty items, at 
random, and have them alphabetically sorted and 
represented. 

If you have a printer then you will be able to run off a copy 
of your list and keep it with your collections. 

If you wanted to be really clever you could incorporate 
this program with the decoder program, and file all your 
secret material in code. You would have to use the Text 
Saver program in addition to the Encode program. 


How to play 

Simply key in your information at random, and your 
Aquarius will do the restforyou. 


Programming Hint 

If you want to try and obtain more space try 
15CLEAR400 


10 REM Alphabetic Sort 
20 PRINTCHR$<11 > 

25 PR. I NT : PR. I NT • PRI NT : PR I NT : PR I NT 
27 PRINT"Tqpe DATA to sort" 

30 PRINT;PRI NT"Press RETURN to start sor 
t" 


40 PR I NT = PR I NT = PR I NT = PR I NT 
50 L = 0 

60 50 ) 

70 INPUTM$<L > 

80 L=L+1 

90 IFL=51QRM$< L-l>=""THEN208 
100 GOTO70 
200 F=0 

210 FORS=0TQL-1 

220 IFM$<S >< = M$<S+l>THEN258 

230 F=1 

235 T$=M$CS > 

240 M$C S )=M$< S + l> 

245 M$< S + l >=T$ 

250 NEXT 

260 IFF=1THEN20@ 

270 PRINTCHR$< 11) 

280 FORS=0TOL 
290 PR INTM$CS ) 

300 NEXT 

310 IFINKEY$<>""THEN310 
320 IFINKEY$=""THEN320 
330 RUN 
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MUSIC KEYBOARD 


Now is your chance to become a new Stevie Wonder, 
Mozart or just a poor man's piano plunker. 

We have turned your Aquarius into a miniature piano/ 
organ by converting the keyboard into the black and 
white keys of a conventional piano. 


How to play 

use the keys WSEDFTGYHUJKOLPfor your 
masterwork. 

The fi rst key wi 11 sta rt you off at C. 

10 REM Music Keyboard 

11 DI MN< 13 ) : F0RD = 1 TO 18 •• READNC L >= NEXT 

12 DIMK$< 18 ) = FQRL= 1T018 READK$C L ) = NEXT 
20 PRINTCHRf<11 ) : PRINT : PRINT : PRINT : PRINT 
" Aquarius Composer" 

30 PRINT : PRINT : PRINT = PRINT" Play Now = " 
40 N$=INKEY$ 

50 F0RL=1T018 

60 IFN$=K$< L )THENSOUND«: 80 . N( L > > 

70 NEXT = GOTO40 

1000 DATA 189.180,170,160.150.140,136.126 

,113,110,104,98 

1010 DATA92,87,83,77,72,69,65 

1020 DATAa,w,s,e,d,t,t,g,y,h,u,j,k,o, 1, p 



NUMBER SHOOT 


You are going to be asked to solve an addition sum and 
then fill in the answer. Sounds boring huh? Well, it's not. 
Not the way we have set it up for you. 

You will have to be smart with your answers and sharp 
with yourfingers because when you have worked out the 
answer you will be able to fill in the figure by shooting 
down the 'units' 'tens' and 'hundreds' necessary to 
provide the correct result. You will be given a score after 
ten attempts. 


Howto play 

Press "<space>" to fire when the laser base is underthe 
correct digit. 


10 R. E M N u m b e r S h o o + 

20 SC=0 T=0 

100 PRINTCHR$<11 > : POKE 12369.32 : F0RL=1371 
2T014311=POKED.100=NEXT 
105 IFINKEY$<>""THEN 105 

110 FQRL=12348TQ13268STEP40 : POKED.214 : NE 
XT 

120 F0RD = 0T09 : P0KE12432+D,D+48 = NEXT 
138 A=100+1 NT<RNDC1>*400 ) = 8=100+1NT < PNDC 
1>*400>:C=A+B 

140 A$ = R IGHT $<■'. 3TR$< A >, 3 > • B$ = RIGHT$C STR$C 
B >,3 > : F0RD=1T03 

150 POKE 12812+2*D , ASC(MID$( A$, D , 1> > :POKE 
12892+2*D,ASCC MID$<B$.D,1>> = NEXT 
160 POKE 12892.43 : F0RD = 12932T012940 = POKED 
,172 : POKED+120,172=NEXT 

178 C$ = RIGHT $< STR$(C >.3 >■PR I NT"UN ITS" = P = 


130 GOSUB500:IFD<>ASC< RIGHT$(C$, 


>THENG 
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0S U B 6 00 : GOTO240 
190 PR I NT"TENS" =P=2 

200 G0SUB500 = I FD< >ASC< MID$< C$ ... 2, 1 > )THENG 

USU B 60y : GOT 0 24 0 

210 PRI NT"HUNDREDS"= P=1 

220 GOSUB500 : IFD< >ASC< LEFT $( f:$ . 1 :> '/THENGQ 
SUB600=GOT 0240 

230 PRINT : PRINT : PRINT"C0RRECT"=SC = SC +1@ 
240 T=T+1:FORL=1TO2000=NEXT : IFT<>10THEN1 
80 

258 PR I NTCHR$<11>:PR I NT : PR INT = PRI NT = PR IN 
T" AFTER 10 T U R N S Y 0 U H A ME S 0 n RED " ; S 0 
260 IFINKEY$<>""THEN268 
278 IFINKEY$=""THEN270 
280 RUN 

580 FORL=13112T013121=POKEL,32 = NEXT 
518 H=13112=D=1 


520 POKEH, 143 : 14 =8 
530 14= 14+1 : IFINKEY$< 
535 IFWC40THEN530 
548 POKEH,32 
545 H=H+D : IFH>13121 
0545 


>""THEN550 


ORH<13112THEND 


547 GOTO520 


_n•HOT 


550 FORL=H-40TOH-640STEP-40■PQKEL+40,32= 
POKEL,94 

560 S0UND< 20, <! L-12488 >/10 >: NEXT 
565 POKEL+40,32 
578 D=L-12384 

588 P0KE12972+P42,D=RETURN 
688 PRINT"INCORRECT"=FORL=1TQ2888 = NEXT 
610 PRINT : PRINT"THE ANSWER WAS"=PRINT=PR 
I NT" ";C$ 

620 RETURN 
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TEXT SAVER 


Your Aquarius is slightly peculiar in the sense that it will 
not, easily, accept and save text on tape. 

To overcome this problem we have written this 
conversion program, so that text is converted to numeric 
symbols, which are then accepted by the computer. 


Programming hint 

If you have bought a memory expansion unit, you could 
use this with the alpha sort and decoder program to store 
and hide your information. 

18 REM Tp xt Saver 
20 CLEAR 100 
38 DIHCC180 > 

35 S=100 
37 M=0 

48 PRINTCHR*<11 )'PR I NT'PRINT'PRINT'PRINT 
50 PRINT"1) Save Text to Tape" 

60 F'RINT"2> Load Text from Tape" 

78 PRINT"3) Print Text in memory" 

88 PRINT"4> Accept message from Keyboar 
d" 

85 PR I NT = PR I NT = PR. I NT = PR I NT 

98 K$= INKE Y$ = I FK$< " 1 " ORKf > '! 4 "THEN90 

180 K=ASCCK$>-48 

110 ON K GOSUB 208,300,400,500 

120 IFINKEY$<>""THEN 120 

130 IFINKEY$=""THEN130 

140 GOTO40 

280 IFM = 0THENPRI NT"No text to save"=RETU 
RN 

218 F0RL=1T0M 

228 CC L >=ASCC MID$<M$,L,1 ) > 

230 NEXT 
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240 F0RL=M+1TQS:C(L > = 32 : NEXT 

245 C< 8 > = M 

250 CSAUE* C 

260 RETURN 

300 CLQAD* C 

385 M=CCS> 

310 PRINT = PR I NT--PR I NT" Message Loacjpc j.. 

320 RETURN 

400 IFM=0THENPRINT"No text in memor m" : RE 
TURN ' ‘ 

410 M ^ = '* n 

420 F0RL=1 TOM 

430 M$=M$+CHR$<CCL > > 

440 NEXT 

450 PRINTCHR$<11)=PRINT=PRINT:PRINT:PRIN 
T 

460 PRINTMf 
470 RETURN 

50@ PR I NTCHR$<11>:PR I NT"T ype Message Now 

510 PR I NT:PR I NT:PRINT : PR I NT : PR I NT 
520 INPUTM$ 

530 M=LEN<M$ > 

540 RETURN 


REPORT PHRASE 
GENERATOR 
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If this title sounds rather heavy don't worry, it's not 
meant to scare, or bore, you. 

We have called it a "report phrase" but it could be used 
for anyone who is writing essays, papers or anything 
which needs constant use of the same type of phrase 
over and over. 

Imagine you are writing a report for your boss, or your 
teacher, and you have to use the word 'integrated' 
several times. Well now you can store, in advance, all the 
similar words with the same meaning and call them up at 
a moment's notice. 

Now you are going to ask "What other words are similar 
to integrated?" We didn't say we were the answer to all 
your problems did we? 


Howto use 

You key in the words that matter to you, using line 200 
onwards. 


: "RUN" the program 

: Press a key, each time a phrase is required. 


100 REM Report Generator 

110 PRINTCHR$<11):print=PRINT 

120 F0RL=1T07 : READh$<L >, L >,n$C L > = NEXT 

130 IFINKEY$<>■"THEN 130 

140 IFINKEY$=""THEN140 









150 PRINTA$< INK RND< 1 >*7+1 > > .; " " ; S$< INK 
RND< 1>*7 +1 ) >;" " ;C$< INT< RNDC1>*7 + 1 > > 

168 PRINT : GOTO 130 

£80 DATAON-GOING,HUMANISTIC,ENVIRONMENT 
210 DATAMODULAR,INTEGRATED.SITUATION 
220 DATADIFFERENTIATED.MOTIVATIONAL.PROS 
ESS 

230 DATAMI NOR I TV s GREAT IVE,EXPERIMENT 
240 DATAOPEN-ENDED,VERT I CAL.TECHNIQUE 
258 DATAINDIVI DUAL.EVALUATIVE,RESOURCE 
260 DATAHOMOGENEOUS.OBJECTIVE,FACILITY 


















